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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

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

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