Changeset 438

Timestamp:

Feb 28, 2008, 6:55:14 PM (16 years ago)

Author:

dai

Message:

UnitTest関数をSub定義にした

File:

• trunk/TestCase/SimpleTestCase/SimpleTestCase.ab (modified) (3 diffs)

trunk/TestCase/SimpleTestCase/SimpleTestCase.ab

@@ -10 +10 @@
 #include "SimpleTestCase.idx"
 
-Function UnitTest( msg As String, isSuccessful As Boolean )
+Sub UnitTest( msg As String, isSuccessful As Boolean )
     Dim resultStr = Nothing As String
     If isSuccessful Then
@@ -27 +27 @@
         SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
     End If
-End Function
+End Sub
 
-Function UnitTest( msg As String, test As String, expectation As String)
+Sub UnitTest( msg As String, test As String, expectation As String)
     If test = expectation Then
         Print Ex"OK      "; msg
@@ -38 +38 @@
         SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
     End If
-End Function
+End Sub
 
 Print "Please enter any key"