Changeset 365 for trunk/TestCase

Timestamp:

Oct 27, 2007, 12:58:11 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

QWord, Int64用書式化関数群を実装

File:

• trunk/TestCase/SimpleTestCase/SPrintFTest.ab (modified) (1 diff)

trunk/TestCase/SimpleTestCase/SPrintFTest.ab

@@ -96 +96 @@
     UnitTest("FormatFloatF(1.00, precision = 2)", Right$(s, 6) = "000.00")
 
-'   s = FormatIntegerLU(8589934590, DWORD_MAX, 0, None)
-'   UnitTest("FormatIntegerLU(8589934590)", s = "8589934590")
+    s = FormatIntegerLO(&hFFFFFFFFFFFFFFFF, 0, 0, Alt)
+    UnitTest("FormatIntegerLO(&hFFFFFFFFFFFFFFFF, Alt) = 01777777777777777777777", s = "01777777777777777777777")
+    s = FormatIntegerLX(&h123456789abcdef0, 0, 0, None)
+    UnitTest("FormatIntegerLX(&h123456789abcdef0)", s = "123456789abcdef0")
+    s = FormatIntegerLU(8589934590 As QWord, DWORD_MAX, 0, None)
+    UnitTest("FormatIntegerLU(8589934590)", s = "8589934590")
+    s = FormatIntegerLD(-8589934590, DWORD_MAX, 0, None)
+    UnitTest("FormatIntegerLD(-8589934590)", s = "-8589934590")
 End Sub