186 lines
8.8 KiB
VB.net
186 lines
8.8 KiB
VB.net
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
|