summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/encoding.test')
-rw-r--r--tests/encoding.test314
1 files changed, 187 insertions, 127 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 824ae48..e0f2521 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -23,83 +23,139 @@ proc fromutf {args} {
lappend x "fromutf $args"
}
-test encoding-1.1 {InitEncoding} {
-} {}
+# TclInitEncodingSubsystem is tested by the rest of this file
+# TclFinalizeEncodingSubsystem is not currently tested
-test encoding-3.1 {Tcl_CreateEncodingType: new} {
- testencoding create foo {toutf 1} {fromutf 2}
- set x {}
- testencoding toutf abcd foo
- testencoding fromutf abcd foo
- testencoding delete foo
- set x
-} {{toutf 1} {fromutf 2}}
-test encoding-3.2 {Tcl_CreateEncodingType: replace encoding} {
- testencoding create foo {toutf a} {fromutf b}
+test encoding-1.1 {Tcl_GetEncoding: system encoding} {
+ testencoding create foo toutf fromutf
+ set old [encoding system]
+ encoding system foo
set x {}
- testencoding toutf abcd foo
- testencoding fromutf abcd foo
+ encoding convertto abcd
+ encoding system $old
testencoding delete foo
set x
-} {{toutf a} {fromutf b}}
-
-test encoding-4.1 {Tcl_GetTextEncoding: existing encoding} {
+} {{fromutf }}
+test encoding-1.2 {Tcl_GetEncoding: existing encoding} {
testencoding create foo toutf fromutf
set x {}
- testencoding fromutf abcd foo
+ encoding convertto foo abcd
testencoding delete foo
set x
} {{fromutf }}
-test encoding-4.2 {Tcl_GetTextEncoding: load encoding} {
- list [testencoding fromutf \u4e4e jis0208] \
- [testencoding toutf 8C jis0208]
+test encoding-1.3 {Tcl_GetEncoding: load encoding} {
+ list [encoding convertto jis0208 \u4e4e] \
+ [encoding convertfrom jis0208 8C]
} "8C \u4e4e"
-test encoding-5.1 {Tcl_GetTextEncodingName} {
- set old [testencoding system]
- testencoding system jis0208
- set x [testencoding system]
- testencoding system identity
- testencoding system $old
+test encoding-2.1 {Tcl_FreeEncoding: refcount == 0} {
+ encoding convertto jis0208 \u4e4e
+} {8C}
+test encoding-2.2 {Tcl_FreeEncoding: refcount != 0} {
+ set system [encoding system]
+ set path [testencoding path]
+ encoding system jis0208 ;# incr ref count
+ testencoding path .
+ set x [encoding convertto jis0208 \u4e4e] ;# old one found
+ encoding system identity
+ lappend x [catch {encoding convertto jis0208 \u4e4e} msg] $msg
+ encoding system identity
+ testencoding path $path
+ encoding system $system
+ set x
+} {8C 1 {unknown encoding "jis0208"}}
+
+test encoding-3.1 {Tcl_GetEncodingName, NULL} {
+ set old [encoding system]
+ encoding system jis0208
+ set x [encoding system]
+ encoding system $old
+ set x
+} {jis0208}
+test encoding-3.2 {Tcl_GetEncodingName, non-null} {
+ set old [fconfigure stdout -encoding]
+ fconfigure stdout -encoding jis0208
+ set x [fconfigure stdout -encoding]
+ fconfigure stdout -encoding $old
set x
} {jis0208}
-test encoding-6.1 {Tcl_FreeTextEncoding: refcount == 0} {
- testencoding fromutf \u4e4e jis0208
-} {8C}
-test encoding-6.2 {Tcl_FreeTextEncoding: refcount != 0} {
- set system [testencoding system]
+test encoding-4.1 {Tcl_GetEncodingNames} {
+ file mkdir tmp/encoding
+ close [open tmp/encoding/junk.enc w]
+ close [open tmp/encoding/junk2.enc w]
+ cd tmp
set path [testencoding path]
- testencoding system jis0208 ;# incr ref count
testencoding path .
- set x [testencoding fromutf \u4e4e jis0208] ;# old one found
- testencoding system identity
- lappend x [testencoding fromutf \u4e4e jis0208]
- testencoding system identity
+ set x [encoding names]
testencoding path $path
- testencoding system $system
+ cd ..
+ file delete -force tmp
set x
-} "8C \xe4\xb9\x8e"
-
-test encoding-7.1 {Tcl_SetSystemTextEncoding} {
- set old [testencoding system]
- testencoding system jis0208
- set x [testencoding fromutf \u4e4e snarky]
- testencoding system identity
- testencoding system $old
+} {junk utf-8 cp1252 junk2 identity unicode iso8859-1}
+
+
+test encoding-5.1 {Tcl_SetSystemEncoding} {
+ set old [encoding system]
+ encoding system jis0208
+ set x [encoding convertto \u4e4e]
+ encoding system identity
+ encoding system $old
set x
} {8C}
-test encoding-7.2 {Tcl_SetSystemTextEncoding: test ref count} {
- set old [testencoding system]
- testencoding system $old
- string compare $old [testencoding system]
+test encoding-5.2 {Tcl_SetSystemEncoding: test ref count} {
+ set old [encoding system]
+ encoding system $old
+ string compare $old [encoding system]
} {0}
+test encoding-6.1 {Tcl_CreateEncoding: new} {
+ testencoding create foo {toutf 1} {fromutf 2}
+ set x {}
+ encoding convertfrom foo abcd
+ encoding convertto foo abcd
+ testencoding delete foo
+ set x
+} {{toutf 1} {fromutf 2}}
+test encoding-6.2 {Tcl_CreateEncoding: replace encoding} {
+ testencoding create foo {toutf a} {fromutf b}
+ set x {}
+ encoding convertfrom foo abcd
+ encoding convertto foo abcd
+ testencoding delete foo
+ set x
+} {{toutf a} {fromutf b}}
+
+test encoding-7.1 {Tcl_ExternalToUtfDString: small buffer} {
+ encoding convertfrom jis0208 8c8c8c8c
+} "\u543e\u543e\u543e\u543e"
+test encoding-7.2 {Tcl_UtfToExternalDString: big buffer} {
+ set a 8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C
+ append a $a
+ append a $a
+ append a $a
+ append a $a
+ set x [encoding convertfrom jis0208 $a]
+ list [string length $x] [string index $x 0]
+} "512 \u4e4e"
+
+test encoding-8.1 {Tcl_ExternalToUtf} {
+ set f [open dummy w]
+ fconfigure $f -translation binary -encoding iso8859-1
+ puts -nonewline $f "ab\x8c\xc1g"
+ close $f
+ set f [open dummy r]
+ fconfigure $f -translation binary -encoding shiftjis
+ set x [read $f]
+ close $f
+ file delete dummy
+ set x
+} "ab\u4e4eg"
-test encoding-8.1 {Tcl_UtfToExternalDString: small buffer} {
- testencoding fromutf "\u543e\u543e\u543e\u543e" jis0208
+test encoding-9.1 {Tcl_UtfToExternalDString: small buffer} {
+ encoding convertto jis0208 "\u543e\u543e\u543e\u543e"
} {8c8c8c8c}
-test encoding-8.2 {Tcl_UtfToExternalDString: big buffer} {
+test encoding-9.2 {Tcl_UtfToExternalDString: big buffer} {
set a \u4e4e\u4e4e\u4e4e\u4e4e\u4e4e\u4e4e\u4e4e\u4e4e
append a $a
append a $a
@@ -107,121 +163,125 @@ test encoding-8.2 {Tcl_UtfToExternalDString: big buffer} {
append a $a
append a $a
append a $a
- set x [testencoding fromutf $a jis0208]
+ set x [encoding convertto jis0208 $a]
list [string length $x] [string range $x 0 1]
} "1024 8C"
test encoding-10.1 {Tcl_UtfToExternal} {
-} {}
-
-test encoding-11.1 {Tcl_ExternalToUtfDString: small buffer} {
- testencoding toutf 8c8c8c8c jis0208
-} "\u543e\u543e\u543e\u543e"
-test encoding-11.2 {Tcl_UtfToExternalDString: big buffer} {
- set a 8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C
- append a $a
- append a $a
- append a $a
- append a $a
- set x [testencoding toutf $a jis0208]
- list [string length $x] [string index $x 0]
-} "512 \u4e4e"
-
-test encoding-13.1 {Tcl_ExternalToUtf} {
-} {}
+ set f [open dummy w]
+ fconfigure $f -translation binary -encoding shiftjis
+ puts -nonewline $f "ab\u4e4eg"
+ close $f
+ set f [open dummy r]
+ fconfigure $f -translation binary -encoding iso8859-1
+ set x [read $f]
+ close $f
+ file delete dummy
+ set x
+} "ab\x8c\xc1g"
-test encoding-14.1 {LoadEncodingTable: no encoding path} {
- set system [testencoding system]
+test encoding-11.1 {LoadEncodingFile: unknown encoding} {
+ set system [encoding system]
set path [testencoding path]
- testencoding system iso8859-1
+ encoding system iso8859-1
testencoding path {}
- set x [testencoding fromutf \u4e4e jis0208]
+ set x [list [catch {encoding convertto jis0208 \u4e4e} msg] $msg]
testencoding path $path
- testencoding system $system
- list $x [testencoding fromutf \u4e4e jis0208]
-} "? 8C"
-test encoding-14.2 {LoadEncodingTable: table file} {
- testencoding fromutf \u4e4e jis0208
-} {8C}
-test encoding-14.3 {LoadEncodingTable: escape file} {
- testencoding fromutf \u4e4e iso2022
+ encoding system $system
+ lappend x [encoding convertto jis0208 \u4e4e]
+} {1 {unknown encoding "jis0208"} 8C}
+test encoding-11.2 {LoadEncodingFile: single-byte} {
+ encoding convertfrom jis0201 \xa1
+} "\uff61"
+test encoding-11.3 {LoadEncodingFile: double-byte} {
+ encoding convertfrom jis0208 8C
+} "\u4e4e"
+test encoding-11.4 {LoadEncodingFile: multi-byte} {
+ encoding convertfrom shiftjis \x8c\xc1
+} "\u4e4e"
+test encoding-11.5 {LoadEncodingFile: escape file} {
+ encoding convertto iso2022 \u4e4e
} "\x1b(B\x1b$@8C"
-
-test encoding-15.1 {LoadConvertTable: bad file} {
- set system [testencoding system]
+test encoding-11.6 {LoadEncodingFile: invalid file} {
+ set system [encoding system]
set path [testencoding path]
- testencoding system identity
- testencoding path .
- file mkdir encoding
- set f [open encoding/splat.enc w]
+ encoding system identity
+ testencoding path tmp
+ file mkdir tmp/encoding
+ set f [open tmp/encoding/splat.enc w]
fconfigure $f -translation binary
puts $f "abcdefghijklmnop"
close $f
- set x [testencoding fromutf \u4e4e splat]
- file delete encoding/splat.enc
+ set x [list [catch {encoding convertto splat \u4e4e} msg] $msg]
+ file delete -force tmp
catch {file delete encoding}
testencoding path $path
- testencoding system $system
+ encoding system $system
set x
-} "\xe4\xb9\x8e"
-test encoding-15.2 {LoadConvertTable: normal encoding} {
- set x [testencoding fromutf \u120 iso8859-3]
- append x [testencoding fromutf \ud5 iso8859-3]
- append x [testencoding toutf \xd5 iso8859-3]
+} {1 {invalid encoding file "splat"}}
+
+# OpenEncodingFile is fully tested by the rest of the tests in this file.
+
+test encoding-12.1 {LoadTableEncoding: normal encoding} {
+ set x [encoding convertto iso8859-3 \u120]
+ append x [encoding convertto iso8859-3 \ud5]
+ append x [encoding convertfrom iso8859-3 \xd5]
} "\xd5?\u120"
-test encoding-15.3 {LoadConvertTable: single-byte encoding} {
- set x [testencoding fromutf ab\u0120g iso8859-3]
- append x [testencoding toutf ab\xd5g iso8859-3]
+test encoding-12.2 {LoadTableEncoding: single-byte encoding} {
+ set x [encoding convertto iso8859-3 ab\u0120g]
+ append x [encoding convertfrom iso8859-3 ab\xd5g]
} "ab\xd5gab\u120g"
-test encoding-15.4 {LoadConvertTable: multi-byte encoding} {
- set x [testencoding fromutf ab\u4e4eg shiftjis]
- append x [testencoding toutf ab\x8c\xc1g shiftjis]
+test encoding-12.3 {LoadTableEncoding: multi-byte encoding} {
+ set x [encoding convertto shiftjis ab\u4e4eg]
+ append x [encoding convertfrom shiftjis ab\x8c\xc1g]
} "ab\x8c\xc1gab\u4e4eg"
-test encoding-15.5 {LoadConvertTable: double-byte encoding} {
- set x [testencoding fromutf \u4e4e\u3b1 jis0208]
- append x [testencoding toutf 8C&A jis0208]
+test encoding-12.4 {LoadTableEncoding: double-byte encoding} {
+ set x [encoding convertto jis0208 \u4e4e\u3b1]
+ append x [encoding convertfrom jis0208 8C&A]
} "8C&A\u4e4e\u3b1"
-test encoding-15.6 {LoadConvertTable: symbol encoding} {
- set x [testencoding fromutf \u3b3 symbol]
- append x [testencoding fromutf \u67 symbol]
- append x [testencoding toutf \x67 symbol]
+test encoding-12.5 {LoadTableEncoding: symbol encoding} {
+ set x [encoding convertto symbol \u3b3]
+ append x [encoding convertto symbol \u67]
+ append x [encoding convertfrom symbol \x67]
} "\x67\x67\u3b3"
-test encoding-16.1 {LoadEscapeTable} {
- set x [testencoding fromutf ab\u4e4e\u68d9g iso2022]
+test encoding-13.1 {LoadEscapeTable} {
+ set x [encoding convertto iso2022 ab\u4e4e\u68d9g]
} "\x1b(Bab\x1b$@8C\x1b$(DD%\x1b(Bg"
-test encoding-17.1 {BinaryProc} {
- testencoding fromutf \x12\x34\x56\xff\x69 identity
+test encoding-14.1 {BinaryProc} {
+ encoding convertto identity \x12\x34\x56\xff\x69
} "\x12\x34\x56\xc3\xbf\x69"
-test encoding-18.1 {UtfToUtfProc} {
- testencoding fromutf \xa3 utf-8
+test encoding-15.1 {UtfToUtfProc} {
+ encoding convertto utf-8 \xa3
} "\xc2\xa3"
-test encoding-19.1 {UnicodeToUtfProc} {
- testencoding toutf NN unicode
+test encoding-16.1 {UnicodeToUtfProc} {
+ encoding convertfrom unicode NN
} "\u4e4e"
-test encoding-20.1 {UtfToUnicodeProc} {
+test encoding-17.1 {UtfToUnicodeProc} {
} {}
-test encoding-21.1 {TableToUtfProc} {
+test encoding-18.1 {TableToUtfProc} {
} {}
-test encoding-22.1 {UtfToTableProc} {
+test encoding-19.1 {TableFromUtfProc} {
} {}
-test encoding-23.1 {TableFreeProc} {
+test encoding-20.1 {TableFreefProc} {
} {}
-test encoding-24.1 {EscapeToUtfProc} {
+test encoding-21.1 {EscapeToUtfProc} {
} {}
-test encoding-25.1 {UtfToEscapeProc} {
+test encoding-22.1 {EscapeFromUtfProc} {
} {}
-test encoding-26.1 {EscapeFreeProc} {
-} {}
+# EscapeFreeProc, GetTableEncoding, unilen
+# are fully tested by the rest of this file
return
+
+
generated by cgit v0.12 at 2024-07-15 22:06:28 (GMT)