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

Timestamp:

Oct 13, 2007, 2:11:22 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

FormatIntegerDを実装。
UnitTestの失敗時の表示を目立つようにした。
ArrayListを名前空間System.Collectionsに入れた。

File:

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

trunk/TestCase/SimpleTestCase/SimpleTestCase.ab

@@ -2 +2 @@
 
 #console
+
+Dim hStdOut = _System_hConsoleOut
+
+Dim csbi As CONSOLE_SCREEN_BUFFER_INFO
+GetConsoleScreenBufferInfo(hStdOut, csbi)
+
 #include "SimpleTestCase.idx"
 
@@ -7 +13 @@
     Dim resultStr As String
     If isSuccessful Then
-        resultStr = Ex"OK\t"
+        resultStr = Ex"OK      "
     Else
         resultStr = Ex"FAILURE!"
     End If
 
-    Print resultStr, msg
+    If Not isSuccessful Then
+        SetConsoleTextAttribute(hStdOut, BACKGROUND_RED Or BACKGROUND_GREEN Or BACKGROUND_INTENSITY)
+    End If
+
+    Print resultStr; msg
+
+    If Not isSuccessful Then
+        SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
+    End If
 End Function