%%override
%{
setz data4 børn
%}
data3=børn
%%begin
%{
if {![info exists data]} {
html "this tests Tcl's UTF-8 misfacility
"
set data {børn}
html "available encodings
";
html [encoding names]
html "
encoding is [encoding system]
"
html "expecting b oslash r n in iso8859-1 (current): $data
"
html "calling regsub
";
regsub -all r $data r data
html "expecting b oslash r n in iso8859-1 (current): $data
"
encoding system utf-8
html "expecting b oslash r n in utf-8: $data
"
encoding system iso8859-1
html "invoking callZap
"
callZap testutf8.zap data=$data&data2=børn
} else {
html "expecting b oslash r n in iso8859-1 (current):
"
html "$data
"
html "$data2
"
html "$data3
"
}
%}
$data4
%%end