Changeset 632

Timestamp:

2008/09/23 22:49:35 (4 years ago)

Author:

egtra

Message:

[627]への対応

File:

• trunk/ab5.0/ablib/TestCase/SimpleTestCase/SimpleTestCase.ab (modified) (5 diffs)

trunk/ab5.0/ablib/TestCase/SimpleTestCase/SimpleTestCase.ab

@@ -2 +2 @@
 
 #console
-
-Dim hStdOut = _System_hConsoleOut
 
 Function GetTempDirectory() As String
@@ -28 +26 @@
 'Initialize()
 
-Dim csbi As CONSOLE_SCREEN_BUFFER_INFO
-GetConsoleScreenBufferInfo(hStdOut, csbi)
+Dim prevBackColor = System.Console.BackgroundColor
+Dim prevForeColor = System.Console.ForegroundColor
 
 #include "SimpleTestCase.idx"
 
+Imports System
+
 Dim failureCount = 0 As DWord
+
+Sub SetFailureColor()
+    Console.BackgroundColor = ConsoleColor.Yellow
+    Console.ForegroundColor = ConsoleColor.Black
+End Sub
 
 Sub UnitTest( msg As String, isSuccessful As Boolean )
@@ -45 +50 @@
 
     If Not isSuccessful Then
-        SetConsoleTextAttribute(hStdOut, BACKGROUND_RED Or BACKGROUND_GREEN Or BACKGROUND_INTENSITY)
+        SetFailureColor()
     End If
 
@@ -51 +56 @@
 
     If Not isSuccessful Then
-        SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
+        Console.ResetColor()
     End If
 End Sub
@@ -59 +64 @@
         Print Ex"OK      "; msg
     Else
-        SetConsoleTextAttribute(hStdOut, BACKGROUND_RED Or BACKGROUND_GREEN Or BACKGROUND_INTENSITY)
+        SetFailureColor()
         Print Ex"FAILURE!"; msg
         Print "  期待 = '" + expectation + "'" + " 結果 = '" + test + "'"
-        SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
+        Console.ResetColor()
         failureCount++
     End If