diff options
| -rwxr-xr-x | t/lib/cgi-html.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t index 50c840816b..3d3da10b25 100755 --- a/t/lib/cgi-html.t +++ b/t/lib/cgi-html.t @@ -82,7 +82,12 @@ test(19,end_h3 eq '</h3>'); test(20,start_table({-border=>undef}) eq '<table border>'); test(21,h1(escapeHTML("this is <not> \x8bright\x9b")) eq '<h1>this is <not> ‹right›</h1>'); charset('utf-8'); +if (ord("\t") == 9) { test(22,h1(escapeHTML("this is <not> \x8bright\x9b")) eq '<h1>this is <not> ‹right›</h1>'); +} +else { +test(22,h1(escapeHTML("this is <not> \x8bright\x9b")) eq '<h1>this is <not> »rightº</h1>'); +} test(23,i(p('hello there')) eq '<i><p>hello there</p></i>'); my $q = new CGI; test(24,$q->h1('hi') eq '<h1>hi</h1>'); |