source: trunk/ab5.0/ablib/TestCase/SimpleTestCase/EncodingTest.ab@ 682

Imports System.Text
Imports System.Text.Detail

Namespace EncodingTest

Sub TestMain()
    'abcαβγアイウ（漢字拡張Bから3文字）
    Dim chars[ELM(15)] = [
        &h61, &h62, &h63,
        &h03b1, &h03b2, &h03b3,
        &h30a2, &h30a4, &h30a6,
        &hd840, &hdc00, &hd840, &hdc01, &hd840, &hdc02] As WCHAR
    Dim utf32bytes[ELM(12)] = [
        &h61, &h62, &h63,
        &h03b1, &h03b2, &h03b3,
        &h30a2, &h30a4, &h30a6,
        &h20000, &h20001, &h20002] As DWORD
    Dim utf8bytes[ELM(30)] = [
        &h61, &h62, &h63,
        &hce, &hb1, &hce, &hb2, &hce, &hb3,
        &he3, &h82, &ha2, &he3, &h82, &ha4, &he3, &h82, &ha6,
        &hf0, &ha0, &h80, &h80, &hf0, &ha0, &h80, &h81, &hf0, &ha0, &h80, &h82] As Byte
    Dim cp932bytes[ELM(15)] = [
        &h61, &h62, &h63,
        &h83, &hbf, &h83, &hc0, &h83, &hc1,
        &h83, &h41, &h83, &h43, &h83, &h45] As Byte '拡張Bは省略

    Dim utf8 = New UTF8Encoding
    Dim e = utf8.GetEncoder()
    Dim d = utf8.GetDecoder()
    Dim b[256] As Byte
    Dim u16[256] As WCHAR
    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

End Namespace

EncodingTest.TestMain()