<Test()> _ PublicSub FindMaxTest()Sub FindMaxTest() '定义一个数组 Dim list1 As Int32() = {1, 3, 10, 4} Dim my AsNew Class1 '测试数组list1中的最大整数是不是10。 Assert.AreEqual(4, my.FindMax(list1)) End Sub
Imports NUnit.Framework <TestFixture()> _ PublicClass Class1TestClass Class1Test Private con As Connection <TestFixtureSetUp()> _ PublicSub MyFixtureSetUp()Sub MyFixtureSetUp() '打开数据库联接 conn =New Connection("sqlXXX", user, password) conn.open() End Sub <TestFixtureTearDown()> _ PublicSub MyFixtureTearDown()Sub MyFixtureTearDown() '关闭数据库联接 conn.close() End Sub <Test()> _ PublicSub Mytest1()Sub Mytest1() '使用conn作某些测试 End Sub <Test()> _ PublicSub Mytest2()Sub Mytest2() '使用conn作某些测试 End Sub End Class
Imports NUnit.Framework <TestFixture()> _ PublicClass Class1TestClass Class1Test Private con As Connection <SetUp()> _ PublicSub MyFixtureSetUp()Sub MyFixtureSetUp() '打开数据库联接 conn =New Connection("sqlXXX", user, password) conn.open() End Sub <TearDown()> _ PublicSub MyFixtureTearDown()Sub MyFixtureTearDown() '关闭数据库联接 conn.close() End Sub <Test()> _ PublicSub Mytest1()Sub Mytest1() '使用conn作某些测试 End Sub <Test()> _ PublicSub Mytest2()Sub Mytest2() '使用conn作某些测试 End Sub End Class
<Test(), Ignore("Not Ready")> _ PublicSub FindMaxTest()Sub FindMaxTest() '定义一个数组 Dim list1 As Int32() = {1, 3, 10, 4} Dim my AsNew Class1 '测试数组list1中的最大整数是不是10。 Assert.AreEqual(10, my.FindMax(list1)) End Sub
<Test()> _ PublicSub FindMaxTest()Sub FindMaxTest()Sub FindMaxTest()Sub FindMaxTest() '定义一个数组 Dim list1() As Int32 = {1, 3, 10, 4} Dim list2() As Int32 = {1, 3, 4, 10} Dim list3() As Int32 = {10, 3, 1, 4} Dim list4() As Int32 = {-2, -1, -3} Dim my AsNew Class1 '测试数组list1中的最大整数是不是10。 Assert.AreEqual(10, my.FindMax(list1)) '测试边界值 Assert.AreEqual(10, my.FindMax(list2)) Assert.AreEqual(10, my.FindMax(list3)) '测试负数数组,数组中最大值应该是-1 Assert.AreEqual(-1, my.FindMax(list4)) End Sub <Test(), ExpectedException(GetType(NullReferenceException))> _ PublicSub TestForException()Sub TestForException() Dim list1() As Int32 Dim my AsNew Class1 my.FindMax(list1) End Sub (C#中为[Test,ExpectedException(Typeof(NullReferenceExcepton))] )
运行NUnit,如下:
Imports NUnit.Framework <TestFixture()> _ PublicClass Class1TestClass Class1Test <Test(), Category("ShortTime")> _ PublicSub Mytest1()Sub Mytest1() End Sub <Test(), Category("ShortTime")> _ PublicSub Mytest2()Sub Mytest2() End Sub <Test(), Category("LongTime")> _ PublicSub Mytest3()Sub Mytest3() End Sub <Test(), Category("LongTime")> _ PublicSub Mytest4()Sub Mytest4() End Sub End Class