%%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