Changeset 512 for trunk

Timestamp:

Apr 6, 2008, 10:11:10 PM (17 years ago)

Author:

dai

Message:

StrChar→Char

File:

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

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

@@ -14 +14 @@
 
 
-    UnitTest("String.String (case 0)", (memcmp(s1.StrPtr, "hello", SizeOf (StrChar) * 6) = 0))
+    UnitTest("String.String (case 0)", (memcmp(s1.StrPtr, "hello", SizeOf (Char) * 6) = 0))
 
     UnitTest("String.String (case 1)", (s1 = "hello"))
@@ -26 +26 @@
     UnitTest("String.String (case 3)", (s1 = "12345"))
 
-    s1 = New String(&h30 As StrChar, 4)
+    s1 = New String(&h30 As Char, 4)
     UnitTest("String.String (case 4)", (s1 = "0000"))