NurseryManager-Project/TestProjectCreche/MeetTest.vb

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