Changeset 438
- Timestamp:
- Feb 28, 2008, 6:55:14 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/TestCase/SimpleTestCase/SimpleTestCase.ab
r383 r438 10 10 #include "SimpleTestCase.idx" 11 11 12 FunctionUnitTest( msg As String, isSuccessful As Boolean )12 Sub UnitTest( msg As String, isSuccessful As Boolean ) 13 13 Dim resultStr = Nothing As String 14 14 If isSuccessful Then … … 27 27 SetConsoleTextAttribute(hStdOut, csbi.wAttributes) 28 28 End If 29 End Function29 End Sub 30 30 31 FunctionUnitTest( msg As String, test As String, expectation As String)31 Sub UnitTest( msg As String, test As String, expectation As String) 32 32 If test = expectation Then 33 33 Print Ex"OK "; msg … … 38 38 SetConsoleTextAttribute(hStdOut, csbi.wAttributes) 39 39 End If 40 End Function40 End Sub 41 41 42 42 Print "Please enter any key"
Note:
See TracChangeset
for help on using the changeset viewer.