classicAspUnit

وحدة ASPUnit الكلاسيكية

إطار عمل وحدة ASP كلاسيكي للمساعدة في اختبار كود ASP الكلاسيكي.

الاستخدام

إنشاء مثيل للسياق:

set testContext = new aspUnit

إنشاء حالة اختبار:

set oTest = testContext.addTestCase("User Administration")

تقديم التأكيدات:

oTestMethod.AssertExists usersDB, "optional message override: {1}" ' accepts a wildcard marks for the parammeters
oTestMethod.AssertIsA usersDB, "testDB", "" ' leave blank for default message

يمكنك أيضًا إنشاء إعدادات اختبار وعمليات تفكيك ليتم تنفيذها قبل وبعد كل اختبار Test Case :

sub testSetup()
	set usersDB = new testDB

	usersDB.TableName = "users"
	
	set newUser = new User
	newUser.id = 1
	newUser.name = "Bob"
	
	usersDB.add newUser
end sub

sub testTeardown()
	set usersDB = nothing
end sub

... ثم قم بتمرير أسماء الطرق لحالة الاختبار:

oTest.Setup("testSetup")
oTest.Teardown("testTeardown")

وهذا من شأنه أن يعمل أيضا:

oTest.Setup("myGlobalObject.MyMethod(1, ""param2"", true)")

تحذير: يستخدم هذا Execute لتشغيل التعليمات البرمجية وسيقبل أي سلسلة تعليمات برمجية قابلة للتنفيذ مثل "myVar = 1" أو "myFunction() : myOtherFunction()"

للتشغيل والحصول على نتائج الاختبارات:

set results = testContext.run
results.Update ' This will update the test counters for passed, failed and errors

وبعد ذلك يمكنك الوصول إلى النتائج وكتابة أي عرض تريده:

Response.Write "Test Cases: " & results.TestCases.Count & "<br>"
Response.Write "Tests runned: " & results.Tests & ", "
Response.Write "Tests passed: " & results.Passed & ", "
Response.Write "Tests failed: " & results.Failed & ", "
Response.Write "Tests errored: " & results.Errors & "<br><br>"

' loop the testCases
for each testCase in result.TestCases.Items
	Response.Write "-> Test Case: " & testCase.Name & "(" & testCase.Status & ")<br>"
	
	' loop the tests
	for each test in testCase.Tests.Items
		Response.Write "--> Test: " & test.Name & "<br>"
		Response.Write "----> " & test.Output & "(" & test.Status & ")<br>"
	next
next

يوجد عرض القالب مع المصدر في مجلد الاختبار.