4、点击OK后输入一个测试的名称，然后Create。
5、这样在资源管理器中添加了如图中箭头所指的几个文件，本示例中需要我们自己动手编写的是测试文件（DalUserInfoSqlTest。vb）。
6、打开DalUserInfoSqlTest。vb后在尾部能够看到如下代码，有三个需要TODO的地方。
|
1: '''
2: '''A test for AddInfo
3: '''
4:
5: Public Sub AddInfoTest()
6: Dim target As IUserInfo = New DalUserInfoSql() ' TODO: Initialize to an appropriate value
7: Dim AddUser As EnUserInfo = Nothing ' TODO: Initialize to an appropriate value
8: Dim expected As Boolean = False ' TODO: Initialize to an appropriate value
9: Dim actual As Boolean
10: actual = target.AddInfo(AddUser)
11: Assert.AreEqual(expected, actual)
12: Assert.Inconclusive("Verify the correctness of this test method.")
13: End Sub |
7、英文不是很难，简单的说就是需要我们提供一个初始输入、一个预期的输出。完成TODO后的代码如下:
|
1: '''
2: '''A test for AddInfo
3: '''
4:
5: Public Sub AddInfoTest()
6: Dim target As IUserInfo = New DalUserInfoSql() ' TODO: Initialize to an appropriate value
7: Dim AddUser As New EnUserInfo
8: AddUser.FillByOthers("UserID", "UserPwd", "管理员", "Register", "UserName", True)
9: Dim expected As Boolean = True
10: Dim actual As Boolean
11: actual = target.AddInfo(AddUser)
12: Assert.AreEqual(expected, actual)
13: 'Assert.Inconclusive("Verify the correctness of this test method.")
14: End Sub
|
8、在测试方法上右键“运行测试”（测试无需编译，直接运行即可）。
