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