Changeset 383 for trunk/TestCase/SimpleTestCase/SimpleTestCase.ab

Timestamp:

Nov 17, 2007, 9:34:36 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

SPrintf関数の実装

File:

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

trunk/TestCase/SimpleTestCase/SimpleTestCase.ab

@@ -11 +11 @@
 
 Function UnitTest( msg As String, isSuccessful As Boolean )
-    Dim resultStr As String
+    Dim resultStr = Nothing As String
     If isSuccessful Then
         resultStr = Ex"OK      "
@@ -29 +29 @@
 End Function
 
+Function UnitTest( msg As String, test As String, expectation As String)
+    If test = expectation Then
+        Print Ex"OK      "; msg
+    Else
+        SetConsoleTextAttribute(hStdOut, BACKGROUND_RED Or BACKGROUND_GREEN Or BACKGROUND_INTENSITY)
+        Print Ex"FAILURE!"; msg
+        Print "  test string = '" + test + "'"
+        SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
+    End If
+End Function
+
 Print "Please enter any key"
 Dim a As Long