Changeset 682 for trunk/ab5.0/ablib/TestCase/SimpleTestCase

Timestamp:

Feb 16, 2009, 4:26:24 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

UTF8Encodingクラスをとりあえず使える状態に。ただし、BOM出力はまだ不可能。
(#231)

File:

• trunk/ab5.0/ablib/TestCase/SimpleTestCase/EncodingTest.ab (modified) (3 diffs)

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

@@ -1 +1 @@
 Imports System.Text
 Imports System.Text.Detail
-/*
+
 Namespace EncodingTest
 
@@ -27 +27 @@
 
     Dim utf8 = New UTF8Encoding
-    Dim e = utf8.GetEncoder
-    Dim d = utf8.GetDecoder
+    Dim e = utf8.GetEncoder()
+    Dim d = utf8.GetDecoder()
     Dim b[256] As Byte
     Dim u16[256] As WCHAR
-    e.GetBytes(chars, Len(chars) \ SizeOf (WCHAR), b, Len(b), False)
-    UnitTest("UTF8 Encode", memcmp(b, utf8bytes, Len(utf8bytes)) = 0)
-    d.GetChars(utf8bytes, Len(utf8bytes), u16, Len(u16) \ SizeOf (WCHAR), False)
-    UnitTest("UTF8 Decode", memcmp(u16, chars, Len(chars)) = 0)
+    Dim len As Long
+
+    len = utf8.GetBytesCount(chars, Len(chars) \ SizeOf(WCHAR))
+    UnitTest("UTF-8 GetByteCount", len = Len(utf8bytes))
+    utf8.GetBytes(chars, Len(chars) \ SizeOf (WCHAR), b, Len(b))
+    UnitTest("UTF-8 Encode", memcmp(b, utf8bytes, Len(utf8bytes)) = 0)
+
+    len = utf8.GetCharsCount(utf8bytes, Len(utf8bytes))
+    UnitTest("UTF-8 GetCharCount", len = Len(chars) \ SizeOf(WCHAR))
+    utf8.GetChars(utf8bytes, Len(utf8bytes), u16, Len(u16) \ SizeOf (WCHAR))
+    UnitTest("UTF-8 Decode", memcmp(u16, chars, Len(chars)) = 0)
 End Sub
 
@@ -40 +47 @@
 
 EncodingTest.TestMain()
-*/
+