diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-10-30 09:48:11 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-31 14:13:22 +0000 |
| commit | ed8c81f50f5531327b9937724f97d269575a0542 (patch) | |
| tree | 7f683ce7eeeac7b581c433eeffd16201a87622b2 /t | |
| parent | fc051c1ec091dfa3a3a0542ac63bc218189d0f84 (diff) | |
| download | perl-ed8c81f50f5531327b9937724f97d269575a0542.tar.gz | |
fix coded control chars in cgi-html.t
Message-ID: <Pine.OSF.4.10.10010301746350.69159-100000@aspara.forte.com>
p4raw-id: //depot/perl@7497
Diffstat (limited to 't')
| -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>'); |