Changeset 355 for trunk/TestCase/SimpleTestCase

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

Location:

trunk/TestCase/SimpleTestCase

Files:

• DelegateTest.ab (modified) (2 diffs)
• SPrintFTest.ab (modified) (3 diffs)
• SimpleTestCase.ab (modified) (2 diffs)
• SimpleTestCase.pj (modified) (1 diff)

trunk/TestCase/SimpleTestCase/DelegateTest.ab

@@ +1 @@
+/*
 Namespace DelegateTest
 
@@ -96 +97 @@
 
 DelegateTest.TestMain()
+*/

trunk/TestCase/SimpleTestCase/SPrintFTest.ab

@@ -2 +2 @@
 ' Test case of SPrintF Function and etc...
 '--------------------------------------------------------------------
+
+#require <Classes/ActiveBasic/Strings/SPrintF.ab>
 
 Imports ActiveBasic.Strings
@@ -21 +23 @@
 
     s = FormatFloatE(9.876543e021, 6, 0, None)
-    UnitTest("FormatFloatE(9876543e021)", s = "9.876543e021")
+    UnitTest("FormatFloatE(9876543e+21)", s = "9.876543e+21")
 
-    s = FormatFloatE(7.81250000E-003, 8, 0, Cap)
-    UnitTest("FormatFloatE(7.81250000E-003)", s = "7.81250000E-003")
-    /*
-    上は、現在s = 7.81250000E-03となり失敗する。
-    FormatIntegerDを作成していないことが要因。
-    */
+    s = FormatFloatE(7.81250000E-03, 8, 0, Cap)
+    UnitTest("FormatFloatE(7.81250000E-03)", s = "7.81250000E-03")
+
+    s = FormatFloatE(1.2345e67, 4, 15, 0)
+    UnitTest("FormatFloatE(1.2345e+67, field width = 15)", s = "     1.2345e+67")
+    s = FormatFloatE(1.2345e67, 4, 15, Zero)
+    UnitTest("FormatFloatE(1.2345e+67, field width = 15, Zero)", s = "000001.2345e+67")
+    s = FormatFloatE(-1.2345e67, 4, 15, 0)
+    UnitTest("FormatFloatE(-1.2345e+67, field width = 15)", s = "    -1.2345e+67")
+    s = FormatFloatE(-1.2345e67, 4, 15, Zero)
+    UnitTest("FormatFloatE(-1.2345e+67, field width = 15, Zero)", s = "-00001.2345e+67")
+    s = FormatFloatE(1.2345e67, 4, 15, Sign)
+    UnitTest("FormatFloatE(1.2345e+67, field width = 15, Sign)", s = "    +1.2345e+67")
+    s = FormatFloatE(1.2345e67, 4, 15, Zero Or Sign)
+    UnitTest("FormatFloatE(1.2345e+67, field width = 15, Zero Or Sign)", s = "+00001.2345e+67")
+    s = FormatFloatE(1.2345e67, 4, 15, Zero Or Blank)
+    UnitTest("FormatFloatE(1.2345e+67, field width = 15, Zero Or Blank)", s = " 00001.2345e+67")
+    s = FormatFloatE(-1.2345e67, 4, 15, Zero Or Sign)
+    UnitTest("FormatFloatE(-1.2345e+67, field width = 15, Zero Or Sign)", s = "-00001.2345e+67")
+    s = FormatFloatE(-1.2345e67, 4, 15, Zero Or Blank)
+    UnitTest("FormatFloatE(-1.2345e+67, field width = 15, Zero Or Blank)", s = "-00001.2345e+67")
+
+    s = FormatFloatE(1.2345e+67, 4, 0, Cap)
+    UnitTest("FormatFloatE(1.2345E+67, Cap)", s = "1.2345E+67")
+
+    s = FormatFloatE(1.2345e67, 3, 0, None)
+    UnitTest("FormatFloatE(1.2345e+67, precision = 3)", s = "1.234e+67")
+
 
     s = FormatIntegerU(777, 0, 0, None)
@@ -34 +58 @@
 
     s = FormatIntegerU(513, 0, 5, None)
-    UnitTest("FormatIntegerU(513, Field size = 5)", s = "  513")
+    UnitTest("FormatIntegerU(513, field width = 5)", s = "  513")
+
+    s = FormatIntegerD(-3, 2, 0, Sign)
+    UnitTest("FormatIntegerD(-3, precision = 2)", s = "-03")
+
+    s = FormatIntegerD(3, 0, 5, Sign)
+    UnitTest("FormatIntegerD(+3, field width = 5)", s = "   +3")
+
+'   s = FormatIntegerLU(8589934590, DWORD_MAX, 0, None)
+'   UnitTest("FormatIntegerLU(8589934590)", s = "8589934590")
+
+    
 
 End Sub

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
 

trunk/TestCase/SimpleTestCase/SimpleTestCase.pj

@@ -7 +7 @@
 #NAME=SimpleTestCase
 
-#PLATFORM=64
+#PLATFORM=32
 
 #USEWINDOW=0