init

TestProjectCreche/BabySitterTest.vb

@@ -0,0 +1,108 @@
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Imports ApplicationCrèche_1
+
+
+
+'''<summary>
+'''Classe de test pour BabySitterTest, destinée à contenir tous
+'''les tests unitaires BabySitterTest
+'''</summary>
+<TestClass()> _
+Public Class BabySitterTest
+
+
+    Private testContextInstance As TestContext
+
+    '''<summary>
+    '''Obtient ou définit le contexte de test qui fournit
+    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
+    '''</summary>
+    Public Property TestContext() As TestContext
+        Get
+            Return testContextInstance
+        End Get
+        Set(value As TestContext)
+            testContextInstance = Value
+        End Set
+    End Property
+
+#Region "Attributs de tests supplémentaires"
+    '
+    'Vous pouvez utiliser les attributs supplémentaires suivants lorsque vous écrivez vos tests :
+    '
+    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
+    '<ClassInitialize()>  _
+    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
+    'End Sub
+    '
+    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
+    '<ClassCleanup()>  _
+    'Public Shared Sub MyClassCleanup()
+    'End Sub
+    '
+    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
+    '<TestInitialize()>  _
+    'Public Sub MyTestInitialize()
+    'End Sub
+    '
+    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
+    '<TestCleanup()>  _
+    'Public Sub MyTestCleanup()
+    'End Sub
+    '
+#End Region
+
+
+    '''<summary>
+    '''Test pour Constructeur BabySitter
+    '''</summary>
+    <TestMethod()> _
+    Public Sub BabySitterConstructorTest()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim phone1 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim phone2 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim target As BabySitter = New BabySitter(id, fname, lname, phone1, phone2)
+        Assert.Inconclusive("TODO: implémentez le code pour vérifier la cible")
+    End Sub
+
+    '''<summary>
+    '''Test pour phone1
+    '''</summary>
+    <TestMethod()> _
+    Public Sub phone1Test()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim phone1 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim phone2 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim target As BabySitter = New BabySitter(id, fname, lname, phone1, phone2) ' TODO: initialisez à une valeur appropriée
+        Dim expected As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim actual As String
+        target.phone1 = expected
+        actual = target.phone1
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour phone2
+    '''</summary>
+    <TestMethod()> _
+    Public Sub phone2Test()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim phone1 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim phone2 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim target As BabySitter = New BabySitter(id, fname, lname, phone1, phone2) ' TODO: initialisez à une valeur appropriée
+        Dim expected As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim actual As String
+        target.phone2 = expected
+        actual = target.phone2
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+End Class

TestProjectCreche/ChildTest.vb

@@ -0,0 +1,185 @@
+Imports System
+
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Imports ApplicationCrèche_1
+
+
+
+'''<summary>
+'''Classe de test pour ChildTest, destinée à contenir tous
+'''les tests unitaires ChildTest
+'''</summary>
+<TestClass()> _
+Public Class ChildTest
+
+
+    Private testContextInstance As TestContext
+
+    '''<summary>
+    '''Obtient ou définit le contexte de test qui fournit
+    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
+    '''</summary>
+    Public Property TestContext() As TestContext
+        Get
+            Return testContextInstance
+        End Get
+        Set(value As TestContext)
+            testContextInstance = Value
+        End Set
+    End Property
+
+#Region "Attributs de tests supplémentaires"
+    '
+    'Vous pouvez utiliser les attributs supplémentaires suivants lorsque vous écrivez vos tests :
+    '
+    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
+    '<ClassInitialize()>  _
+    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
+    'End Sub
+    '
+    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
+    '<ClassCleanup()>  _
+    'Public Shared Sub MyClassCleanup()
+    'End Sub
+    '
+    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
+    '<TestInitialize()>  _
+    'Public Sub MyTestInitialize()
+    'End Sub
+    '
+    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
+    '<TestCleanup()>  _
+    'Public Sub MyTestCleanup()
+    'End Sub
+    '
+#End Region
+
+
+    '''<summary>
+    '''Test pour Constructeur Child
+    '''</summary>
+    <TestMethod()> _
+    Public Sub ChildConstructorTest()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim address As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim born As DateTime = New DateTime() ' TODO: initialisez à une valeur appropriée
+        Dim meet As Meet = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent1 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent2 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim target As Child = New Child(id, fname, lname, address, born, meet, parent1, parent2)
+        Assert.Inconclusive("TODO: implémentez le code pour vérifier la cible")
+    End Sub
+
+    '''<summary>
+    '''Test pour address
+    '''</summary>
+    <TestMethod()> _
+    Public Sub addressTest()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim address As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim born As DateTime = New DateTime() ' TODO: initialisez à une valeur appropriée
+        Dim meet As Meet = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent1 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent2 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim target As Child = New Child(id, fname, lname, address, born, meet, parent1, parent2) ' TODO: initialisez à une valeur appropriée
+        Dim expected As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim actual As String
+        target.address = expected
+        actual = target.address
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour bornDate
+    '''</summary>
+    <TestMethod()> _
+    Public Sub bornDateTest()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim address As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim born As DateTime = New DateTime() ' TODO: initialisez à une valeur appropriée
+        Dim meet As Meet = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent1 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent2 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim target As Child = New Child(id, fname, lname, address, born, meet, parent1, parent2) ' TODO: initialisez à une valeur appropriée
+        Dim expected As DateTime = New DateTime() ' TODO: initialisez à une valeur appropriée
+        Dim actual As DateTime
+        target.bornDate = expected
+        actual = target.bornDate
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour meet
+    '''</summary>
+    <TestMethod()> _
+    Public Sub meetTest()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim address As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim born As DateTime = New DateTime() ' TODO: initialisez à une valeur appropriée
+        Dim meet As Meet = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent1 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent2 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim target As Child = New Child(id, fname, lname, address, born, meet, parent1, parent2) ' TODO: initialisez à une valeur appropriée
+        Dim expected As Meet = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim actual As Meet
+        target.meet = expected
+        actual = target.meet
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour parent1
+    '''</summary>
+    <TestMethod()> _
+    Public Sub parent1Test()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim address As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim born As DateTime = New DateTime() ' TODO: initialisez à une valeur appropriée
+        Dim meet As Meet = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent1 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent2 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim target As Child = New Child(id, fname, lname, address, born, meet, parent1, parent2) ' TODO: initialisez à une valeur appropriée
+        Dim expected As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim actual As Parent
+        target.parent1 = expected
+        actual = target.parent1
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour parent2
+    '''</summary>
+    <TestMethod()> _
+    Public Sub parent2Test()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim address As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim born As DateTime = New DateTime() ' TODO: initialisez à une valeur appropriée
+        Dim meet As Meet = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent1 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim parent2 As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim target As Child = New Child(id, fname, lname, address, born, meet, parent1, parent2) ' TODO: initialisez à une valeur appropriée
+        Dim expected As Parent = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim actual As Parent
+        target.parent2 = expected
+        actual = target.parent2
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+End Class

TestProjectCreche/MeetTest.vb

@@ -0,0 +1,192 @@
+Imports System.Collections.Generic
+
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Imports ApplicationCrèche_1
+
+
+
+'''<summary>
+'''Classe de test pour MeetTest, destinée à contenir tous
+'''les tests unitaires MeetTest
+'''</summary>
+<TestClass()> _
+Public Class MeetTest
+
+
+    Private testContextInstance As TestContext
+
+    '''<summary>
+    '''Obtient ou définit le contexte de test qui fournit
+    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
+    '''</summary>
+    Public Property TestContext() As TestContext
+        Get
+            Return testContextInstance
+        End Get
+        Set(value As TestContext)
+            testContextInstance = Value
+        End Set
+    End Property
+
+#Region "Attributs de tests supplémentaires"
+    '
+    'Vous pouvez utiliser les attributs supplémentaires suivants lorsque vous écrivez vos tests :
+    '
+    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
+    '<ClassInitialize()>  _
+    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
+    'End Sub
+    '
+    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
+    '<ClassCleanup()>  _
+    'Public Shared Sub MyClassCleanup()
+    'End Sub
+    '
+    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
+    '<TestInitialize()>  _
+    'Public Sub MyTestInitialize()
+    'End Sub
+    '
+    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
+    '<TestCleanup()>  _
+    'Public Sub MyTestCleanup()
+    'End Sub
+    '
+#End Region
+
+
+    '''<summary>
+    '''Test pour Constructeur Meet
+    '''</summary>
+    <TestMethod()> _
+    Public Sub MeetConstructorTest()
+        Dim weekDayName As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim weekDayName2 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim weekDayName3 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim weekDayName4 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim weekDayName5 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim weekDayName6 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim weekDayName7 As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim target As Meet = New Meet(weekDayName, weekDayName2, weekDayName3, weekDayName4, weekDayName5, weekDayName6, weekDayName7)
+        Assert.Inconclusive("TODO: implémentez le code pour vérifier la cible")
+    End Sub
+
+    '''<summary>
+    '''Test pour Constructeur Meet
+    '''</summary>
+    <TestMethod()> _
+    Public Sub MeetConstructorTest1()
+        Dim target As Meet = New Meet()
+        Assert.Inconclusive("TODO: implémentez le code pour vérifier la cible")
+    End Sub
+
+    '''<summary>
+    '''Test pour friday
+    '''</summary>
+    <TestMethod()> _
+    Public Sub fridayTest()
+        Dim target As Meet = New Meet() ' TODO: initialisez à une valeur appropriée
+        Dim expected As Boolean = False ' TODO: initialisez à une valeur appropriée
+        Dim actual As Boolean
+        target.friday = expected
+        actual = target.friday
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour monday
+    '''</summary>
+    <TestMethod()> _
+    Public Sub mondayTest()
+        Dim target As Meet = New Meet() ' TODO: initialisez à une valeur appropriée
+        Dim expected As Boolean = False ' TODO: initialisez à une valeur appropriée
+        Dim actual As Boolean
+        target.monday = expected
+        actual = target.monday
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour saturday
+    '''</summary>
+    <TestMethod()> _
+    Public Sub saturdayTest()
+        Dim target As Meet = New Meet() ' TODO: initialisez à une valeur appropriée
+        Dim expected As Boolean = False ' TODO: initialisez à une valeur appropriée
+        Dim actual As Boolean
+        target.saturday = expected
+        actual = target.saturday
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour sunday
+    '''</summary>
+    <TestMethod()> _
+    Public Sub sundayTest()
+        Dim target As Meet = New Meet() ' TODO: initialisez à une valeur appropriée
+        Dim expected As Boolean = False ' TODO: initialisez à une valeur appropriée
+        Dim actual As Boolean
+        target.sunday = expected
+        actual = target.sunday
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour thursday
+    '''</summary>
+    <TestMethod()> _
+    Public Sub thursdayTest()
+        Dim target As Meet = New Meet() ' TODO: initialisez à une valeur appropriée
+        Dim expected As Boolean = False ' TODO: initialisez à une valeur appropriée
+        Dim actual As Boolean
+        target.thursday = expected
+        actual = target.thursday
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour tuesday
+    '''</summary>
+    <TestMethod()> _
+    Public Sub tuesdayTest()
+        Dim target As Meet = New Meet() ' TODO: initialisez à une valeur appropriée
+        Dim expected As Boolean = False ' TODO: initialisez à une valeur appropriée
+        Dim actual As Boolean
+        target.tuesday = expected
+        actual = target.tuesday
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour wednesday
+    '''</summary>
+    <TestMethod()> _
+    Public Sub wednesdayTest()
+        Dim target As Meet = New Meet() ' TODO: initialisez à une valeur appropriée
+        Dim expected As Boolean = False ' TODO: initialisez à une valeur appropriée
+        Dim actual As Boolean
+        target.wednesday = expected
+        actual = target.wednesday
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour weekdays
+    '''</summary>
+    <TestMethod()> _
+    Public Sub weekdaysTest()
+        Dim target As Meet = New Meet() ' TODO: initialisez à une valeur appropriée
+        Dim actual As Dictionary(Of String, Boolean)
+        actual = target.weekdays
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+End Class

TestProjectCreche/My Project/AssemblyInfo.vb

@@ -0,0 +1,37 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Les informations générales relatives à un assembly dépendent de 
+' l'ensemble d'attributs suivant. Changez les valeurs de ces attributs pour modifier les informations
+' associées à un assembly.
+
+' Passez en revue les valeurs des attributs de l'assembly
+
+<Assembly: AssemblyTitle("TestProjectCreche")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("")> 
+<Assembly: AssemblyProduct("TestProjectCreche")> 
+<Assembly: AssemblyCopyright("Copyright ©  2013")> 
+<Assembly: AssemblyTrademark("")> 
+
+<Assembly: CLSCompliant(True)> 
+
+<Assembly: ComVisible(False)>
+
+'Le GUID suivant est pour l'ID de la typelib si ce projet est exposé à COM
+<Assembly: Guid("7f174c61-8c06-41d3-a372-299133d8e185")> 
+
+' Les informations de version pour un assembly se composent des quatre valeurs suivantes :
+'
+'      Version principale
+'      Version secondaire 
+'      Numéro de build
+'      Révision
+'
+' Vous pouvez spécifier toutes les valeurs ou indiquer les numéros de build et de révision par défaut 
+' en utilisant '*', comme indiqué ci-dessous :
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.0.0.0")> 
+<Assembly: AssemblyFileVersion("1.0.0.0")> 

TestProjectCreche/MyProjectTest.vb

@@ -0,0 +1,108 @@
+Imports Microsoft.VisualBasic.ApplicationServices
+
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Imports ApplicationCrèche_1.My
+
+
+
+'''<summary>
+'''Classe de test pour MyProjectTest, destinée à contenir tous
+'''les tests unitaires MyProjectTest
+'''</summary>
+<TestClass()> _
+Public Class MyProjectTest
+
+
+    Private testContextInstance As TestContext
+
+    '''<summary>
+    '''Obtient ou définit le contexte de test qui fournit
+    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
+    '''</summary>
+    Public Property TestContext() As TestContext
+        Get
+            Return testContextInstance
+        End Get
+        Set(value As TestContext)
+            testContextInstance = Value
+        End Set
+    End Property
+
+#Region "Attributs de tests supplémentaires"
+    '
+    'Vous pouvez utiliser les attributs supplémentaires suivants lorsque vous écrivez vos tests :
+    '
+    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
+    '<ClassInitialize()>  _
+    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
+    'End Sub
+    '
+    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
+    '<ClassCleanup()>  _
+    'Public Shared Sub MyClassCleanup()
+    'End Sub
+    '
+    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
+    '<TestInitialize()>  _
+    'Public Sub MyTestInitialize()
+    'End Sub
+    '
+    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
+    '<TestCleanup()>  _
+    'Public Sub MyTestCleanup()
+    'End Sub
+    '
+#End Region
+
+
+    '''<summary>
+    '''Test pour Application
+    '''</summary>
+    <TestMethod()> _
+    Public Sub ApplicationTest()
+        Dim actual As MyApplication
+        actual = MyProject.Application
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour Computer
+    '''</summary>
+    <TestMethod()> _
+    Public Sub ComputerTest()
+        Dim actual As MyComputer
+        actual = MyProject.Computer
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour Forms
+    '''</summary>
+    <TestMethod()> _
+    Public Sub FormsTest()
+        Dim actual As MyProject.MyForms
+        actual = MyProject.Forms
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour User
+    '''</summary>
+    <TestMethod()> _
+    Public Sub UserTest()
+        Dim actual As User
+        actual = MyProject.User
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour WebServices
+    '''</summary>
+    <TestMethod()> _
+    Public Sub WebServicesTest()
+        Dim actual As MyProject.MyWebServices
+        actual = MyProject.WebServices
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+End Class

TestProjectCreche/MySettingsPropertyTest.vb

@@ -0,0 +1,66 @@
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Imports ApplicationCrèche_1.My
+
+
+
+'''<summary>
+'''Classe de test pour MySettingsPropertyTest, destinée à contenir tous
+'''les tests unitaires MySettingsPropertyTest
+'''</summary>
+<TestClass()> _
+Public Class MySettingsPropertyTest
+
+
+    Private testContextInstance As TestContext
+
+    '''<summary>
+    '''Obtient ou définit le contexte de test qui fournit
+    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
+    '''</summary>
+    Public Property TestContext() As TestContext
+        Get
+            Return testContextInstance
+        End Get
+        Set(value As TestContext)
+            testContextInstance = Value
+        End Set
+    End Property
+
+#Region "Attributs de tests supplémentaires"
+    '
+    'Vous pouvez utiliser les attributs supplémentaires suivants lorsque vous écrivez vos tests :
+    '
+    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
+    '<ClassInitialize()>  _
+    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
+    'End Sub
+    '
+    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
+    '<ClassCleanup()>  _
+    'Public Shared Sub MyClassCleanup()
+    'End Sub
+    '
+    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
+    '<TestInitialize()>  _
+    'Public Sub MyTestInitialize()
+    'End Sub
+    '
+    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
+    '<TestCleanup()>  _
+    'Public Sub MyTestCleanup()
+    'End Sub
+    '
+#End Region
+
+
+    '''<summary>
+    '''Test pour Settings
+    '''</summary>
+    <TestMethod()> _
+    Public Sub SettingsTest()
+        Dim actual As MySettings
+        actual = MySettingsProperty.Settings
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+End Class

TestProjectCreche/ParentTest.vb

@@ -0,0 +1,108 @@
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Imports ApplicationCrèche_1
+
+
+
+'''<summary>
+'''Classe de test pour ParentTest, destinée à contenir tous
+'''les tests unitaires ParentTest
+'''</summary>
+<TestClass()> _
+Public Class ParentTest
+
+
+    Private testContextInstance As TestContext
+
+    '''<summary>
+    '''Obtient ou définit le contexte de test qui fournit
+    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
+    '''</summary>
+    Public Property TestContext() As TestContext
+        Get
+            Return testContextInstance
+        End Get
+        Set(value As TestContext)
+            testContextInstance = Value
+        End Set
+    End Property
+
+#Region "Attributs de tests supplémentaires"
+    '
+    'Vous pouvez utiliser les attributs supplémentaires suivants lorsque vous écrivez vos tests :
+    '
+    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
+    '<ClassInitialize()>  _
+    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
+    'End Sub
+    '
+    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
+    '<ClassCleanup()>  _
+    'Public Shared Sub MyClassCleanup()
+    'End Sub
+    '
+    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
+    '<TestInitialize()>  _
+    'Public Sub MyTestInitialize()
+    'End Sub
+    '
+    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
+    '<TestCleanup()>  _
+    'Public Sub MyTestCleanup()
+    'End Sub
+    '
+#End Region
+
+
+    '''<summary>
+    '''Test pour Constructeur Parent
+    '''</summary>
+    <TestMethod()> _
+    Public Sub ParentConstructorTest()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim phone As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim address As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim target As Parent = New Parent(id, fname, lname, phone, address)
+        Assert.Inconclusive("TODO: implémentez le code pour vérifier la cible")
+    End Sub
+
+    '''<summary>
+    '''Test pour address
+    '''</summary>
+    <TestMethod()> _
+    Public Sub addressTest()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim phone As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim address As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim target As Parent = New Parent(id, fname, lname, phone, address) ' TODO: initialisez à une valeur appropriée
+        Dim expected As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim actual As String
+        target.address = expected
+        actual = target.address
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour phone
+    '''</summary>
+    <TestMethod()> _
+    Public Sub phoneTest()
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim fname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim lname As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim phone As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim address As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim target As Parent = New Parent(id, fname, lname, phone, address) ' TODO: initialisez à une valeur appropriée
+        Dim expected As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim actual As String
+        target.phone = expected
+        actual = target.phone
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+End Class

TestProjectCreche/PersonTest.vb

@@ -0,0 +1,101 @@
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Imports ApplicationCrèche_1
+
+
+
+'''<summary>
+'''Classe de test pour PersonTest, destinée à contenir tous
+'''les tests unitaires PersonTest
+'''</summary>
+<TestClass()> _
+Public Class PersonTest
+
+
+    Private testContextInstance As TestContext
+
+    '''<summary>
+    '''Obtient ou définit le contexte de test qui fournit
+    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
+    '''</summary>
+    Public Property TestContext() As TestContext
+        Get
+            Return testContextInstance
+        End Get
+        Set(value As TestContext)
+            testContextInstance = Value
+        End Set
+    End Property
+
+#Region "Attributs de tests supplémentaires"
+    '
+    'Vous pouvez utiliser les attributs supplémentaires suivants lorsque vous écrivez vos tests :
+    '
+    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
+    '<ClassInitialize()>  _
+    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
+    'End Sub
+    '
+    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
+    '<ClassCleanup()>  _
+    'Public Shared Sub MyClassCleanup()
+    'End Sub
+    '
+    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
+    '<TestInitialize()>  _
+    'Public Sub MyTestInitialize()
+    'End Sub
+    '
+    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
+    '<TestCleanup()>  _
+    'Public Sub MyTestCleanup()
+    'End Sub
+    '
+#End Region
+
+
+    Friend Overridable Function CreatePerson() As Person
+        'TODO: instanciez une classe concrète appropriée.
+        Dim target As Person = Nothing
+        Return target
+    End Function
+
+    '''<summary>
+    '''Test pour firstname
+    '''</summary>
+    <TestMethod()> _
+    Public Sub firstnameTest()
+        Dim target As Person = CreatePerson() ' TODO: initialisez à une valeur appropriée
+        Dim expected As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim actual As String
+        target.firstname = expected
+        actual = target.firstname
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour id
+    '''</summary>
+    <TestMethod()> _
+    Public Sub idTest()
+        Dim target As Person = CreatePerson() ' TODO: initialisez à une valeur appropriée
+        Dim actual As Integer
+        actual = target.id
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour lastname
+    '''</summary>
+    <TestMethod()> _
+    Public Sub lastnameTest()
+        Dim target As Person = CreatePerson() ' TODO: initialisez à une valeur appropriée
+        Dim expected As String = String.Empty ' TODO: initialisez à une valeur appropriée
+        Dim actual As String
+        target.lastname = expected
+        actual = target.lastname
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+End Class

TestProjectCreche/ResourcesTest.vb

@@ -0,0 +1,83 @@
+Imports System.Resources
+
+Imports System.Globalization
+
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Imports ApplicationCrèche_1.My.Resources
+
+
+
+'''<summary>
+'''Classe de test pour ResourcesTest, destinée à contenir tous
+'''les tests unitaires ResourcesTest
+'''</summary>
+<TestClass()> _
+Public Class ResourcesTest
+
+
+    Private testContextInstance As TestContext
+
+    '''<summary>
+    '''Obtient ou définit le contexte de test qui fournit
+    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
+    '''</summary>
+    Public Property TestContext() As TestContext
+        Get
+            Return testContextInstance
+        End Get
+        Set(value As TestContext)
+            testContextInstance = Value
+        End Set
+    End Property
+
+#Region "Attributs de tests supplémentaires"
+    '
+    'Vous pouvez utiliser les attributs supplémentaires suivants lorsque vous écrivez vos tests :
+    '
+    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
+    '<ClassInitialize()>  _
+    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
+    'End Sub
+    '
+    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
+    '<ClassCleanup()>  _
+    'Public Shared Sub MyClassCleanup()
+    'End Sub
+    '
+    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
+    '<TestInitialize()>  _
+    'Public Sub MyTestInitialize()
+    'End Sub
+    '
+    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
+    '<TestCleanup()>  _
+    'Public Sub MyTestCleanup()
+    'End Sub
+    '
+#End Region
+
+
+    '''<summary>
+    '''Test pour Culture
+    '''</summary>
+    <TestMethod()> _
+    Public Sub CultureTest()
+        Dim expected As CultureInfo = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim actual As CultureInfo
+        Resources.Culture = expected
+        actual = Resources.Culture
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour ResourceManager
+    '''</summary>
+    <TestMethod()> _
+    Public Sub ResourceManagerTest()
+        Dim actual As ResourceManager
+        actual = Resources.ResourceManager
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+End Class

TestProjectCreche/SQLManagerTest.vb

@@ -0,0 +1,115 @@
+Imports System.Collections.Generic
+
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Imports ApplicationCrèche_1
+
+
+
+'''<summary>
+'''Classe de test pour SQLManagerTest, destinée à contenir tous
+'''les tests unitaires SQLManagerTest
+'''</summary>
+<TestClass()> _
+Public Class SQLManagerTest
+
+
+    Private testContextInstance As TestContext
+
+    '''<summary>
+    '''Obtient ou définit le contexte de test qui fournit
+    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
+    '''</summary>
+    Public Property TestContext() As TestContext
+        Get
+            Return testContextInstance
+        End Get
+        Set(value As TestContext)
+            testContextInstance = Value
+        End Set
+    End Property
+
+#Region "Attributs de tests supplémentaires"
+    '
+    'Vous pouvez utiliser les attributs supplémentaires suivants lorsque vous écrivez vos tests :
+    '
+    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
+    '<ClassInitialize()>  _
+    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
+    'End Sub
+    '
+    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
+    '<ClassCleanup()>  _
+    'Public Shared Sub MyClassCleanup()
+    'End Sub
+    '
+    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
+    '<TestInitialize()>  _
+    'Public Sub MyTestInitialize()
+    'End Sub
+    '
+    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
+    '<TestCleanup()>  _
+    'Public Sub MyTestCleanup()
+    'End Sub
+    '
+#End Region
+
+
+    '''<summary>
+    '''Test pour Constructeur SQLManager
+    '''</summary>
+    <TestMethod()> _
+    Public Sub SQLManagerConstructorTest()
+        Dim target As SQLManager = New SQLManager()
+    End Sub
+
+    '''<summary>
+    '''Test pour addChild
+    '''</summary>
+    <TestMethod()> _
+    Public Sub addChildTest()
+        Dim target As SQLManager = New SQLManager() ' TODO: initialisez à une valeur appropriée
+        Dim aChild As Child = Nothing ' TODO: initialisez à une valeur appropriée
+        target.addChild(aChild)
+        Assert.Inconclusive("Une méthode qui ne retourne pas une valeur ne peut pas être vérifiée.")
+    End Sub
+
+    '''<summary>
+    '''Test pour editChild
+    '''</summary>
+    <TestMethod()> _
+    Public Sub editChildTest()
+        Dim target As SQLManager = New SQLManager() ' TODO: initialisez à une valeur appropriée
+        Dim aChild As Child = Nothing ' TODO: initialisez à une valeur appropriée
+        target.editChild(aChild)
+        Assert.Inconclusive("Une méthode qui ne retourne pas une valeur ne peut pas être vérifiée.")
+    End Sub
+
+    '''<summary>
+    '''Test pour getChildByID
+    '''</summary>
+    <TestMethod()> _
+    Public Sub getChildByIDTest()
+        Dim target As SQLManager = New SQLManager() ' TODO: initialisez à une valeur appropriée
+        Dim id As Integer = 0 ' TODO: initialisez à une valeur appropriée
+        Dim expected As Child = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim actual As Child
+        actual = target.getChildByID(id)
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+
+    '''<summary>
+    '''Test pour getChildren
+    '''</summary>
+    <TestMethod()> _
+    Public Sub getChildrenTest()
+        Dim target As SQLManager = New SQLManager() ' TODO: initialisez à une valeur appropriée
+        Dim expected As List(Of Child) = Nothing ' TODO: initialisez à une valeur appropriée
+        Dim actual As List(Of Child)
+        actual = target.getChildren
+        Assert.AreEqual(expected, actual)
+        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
+    End Sub
+End Class

TestProjectCreche/TestProjectCreche.vbproj

@@ -0,0 +1,125 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProductVersion>
+    </ProductVersion>
+    <SchemaVersion>
+    </SchemaVersion>
+    <ProjectGuid>{9ECEEE15-A011-4654-AA8D-28E3889EB563}</ProjectGuid>
+    <OutputType>Library</OutputType>
+    <RootNamespace>TestProjectCreche</RootNamespace>
+    <AssemblyName>TestProjectCreche</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>Windows</MyType>
+    <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+    <ProjectTypeGuids>{3AC096D0-A1C2-E12C-1390-A8335801FDAB};{F184B08F-C81C-45F6-A57F-5ABD9991F28F}</ProjectTypeGuids>
+    <ReferencePath>$(DevEnvDir)PublicAssemblies\</ReferencePath>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>TestProjectCreche.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>TestProjectCreche.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="Microsoft.VisualStudio.QualityTools.UnitTestFramework, Version=10.1.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <SpecificVersion>True</SpecificVersion>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Data.Entity">
+      <SpecificVersion>True</SpecificVersion>
+    </Reference>
+    <Reference Include="System.Data.SqlServerCe, Version=3.5.1.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
+      <SpecificVersion>True</SpecificVersion>
+    </Reference>
+    <Reference Include="System.Deployment">
+      <SpecificVersion>True</SpecificVersion>
+    </Reference>
+    <Reference Include="System.Drawing">
+      <SpecificVersion>True</SpecificVersion>
+    </Reference>
+    <Reference Include="System.Runtime.Serialization">
+      <SpecificVersion>True</SpecificVersion>
+    </Reference>
+    <Reference Include="System.Security">
+      <SpecificVersion>True</SpecificVersion>
+    </Reference>
+    <Reference Include="System.Windows.Forms">
+      <SpecificVersion>True</SpecificVersion>
+    </Reference>
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Xml.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="Microsoft.VisualStudio.TestTools.UnitTesting" />
+  </ItemGroup>
+  <ItemGroup>
+    <CodeAnalysisDependentAssemblyPaths Condition=" '$(VS100COMNTOOLS)' != '' " Include="$(VS100COMNTOOLS)..\IDE\PrivateAssemblies">
+      <Visible>False</Visible>
+    </CodeAnalysisDependentAssemblyPaths>
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="BabySitterTest.vb" />
+    <Compile Include="ChildTest.vb" />
+    <Compile Include="MeetTest.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="MyProjectTest.vb" />
+    <Compile Include="MySettingsPropertyTest.vb" />
+    <Compile Include="ParentTest.vb" />
+    <Compile Include="PersonTest.vb" />
+    <Compile Include="ResourcesTest.vb" />
+    <Compile Include="SQLManagerTest.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\ApplicationCrèche 1\ApplicationCrèche 1.vbproj">
+      <Project>{B4F616BE-465C-48AC-85E6-672DA34168F3}</Project>
+      <Name>ApplicationCrèche 1</Name>
+      <SpecificVersion>True</SpecificVersion>
+    </ProjectReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>