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