Changeset 358 for trunk/TestCase

Timestamp:

Oct 19, 2007, 11:42:51 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

FormatIntegerO, FormatIntegerXを実装

Location:

trunk/TestCase/SimpleTestCase

Files:

• SPrintFTest.ab (modified) (1 diff)
• SimpleTestCase.idx (modified) (1 diff)
• SimpleTestCase.pj (modified) (1 diff)

trunk/TestCase/SimpleTestCase/SPrintFTest.ab

@@ -66 +66 @@
     UnitTest("FormatIntegerD(+3, field width = 5)", s = "   +3")
 
+    s = FormatIntegerO(&o1234567, DWORD_MAX, 0, None)
+    UnitTest("FormatIntegerO(&o1234567)", s = "1234567")
+
+    s = FormatIntegerO(&o1234567, DWORD_MAX, 0, Alt)
+    UnitTest("FormatIntegerO(&o1234567, Alt)", s = "01234567")
+
+    s = FormatIntegerO(0, DWORD_MAX, 0, Alt)
+    UnitTest("FormatIntegerO(0, Alt)", s = "0")
+
+    s = FormatIntegerX(&hffff, DWORD_MAX, 0, None)
+    UnitTest("FormatIntegerX(&hffff)", s = "ffff")
+
+    s = FormatIntegerX(&hffff, DWORD_MAX, 0, Cap)
+    UnitTest("FormatIntegerX(&hffff, Cap)", s = "FFFF")
+
+    s = FormatIntegerX(&h12345678, DWORD_MAX, 0, Alt)
+    UnitTest("FormatIntegerX(&h12345678, Alt)", s = "0x12345678")
+
+    s = FormatIntegerX(1, 2, 0, Alt Or Cap)
+    UnitTest("FormatIntegerX(1, precision = 2, Alt, Cap)", s = "0X01")
+
+    s = FormatIntegerX(0, 4, 0, Alt)
+    UnitTest("FormatIntegerX(0, precision = 4, Alt)", s = "0000")
+
 '   s = FormatIntegerLU(8589934590, DWORD_MAX, 0, None)
 '   UnitTest("FormatIntegerLU(8589934590)", s = "8589934590")
-
-    
-
 End Sub
 

trunk/TestCase/SimpleTestCase/SimpleTestCase.idx

@@ -28 +28 @@
 #include "InterfaceTest.ab"
 _ClearNamespaceImported
-
-'リソースファイル
-#include "resource.ab"
-#resource "SimpleTestCase.rc"

trunk/TestCase/SimpleTestCase/SimpleTestCase.pj

@@ -23 +23 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=SimpleTestCase.rc
+#RESOURCE=0
 
 #SOURCE