diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-02-28 03:56:51 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-02-28 03:56:51 +0000 |
| commit | a8e9776147ae842531078a95c314ca89c6c73514 (patch) | |
| tree | c0649c6223f14292ddcd367e3be07b542b532b4e /t | |
| parent | dcd846f4e75a65911ac82259fb309a534622cbd6 (diff) | |
| download | perl-a8e9776147ae842531078a95c314ca89c6c73514.tar.gz | |
Repair typo -- conjunction of variable with text
p4raw-id: //depot/vmsperl@5308
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/cgi-html.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t index 6489e5a6b5..43d41ec10f 100755 --- a/t/lib/cgi-html.t +++ b/t/lib/cgi-html.t @@ -43,8 +43,8 @@ test(7,h1({-align=>'CENTER'},['fred','agnes']) eq test(9,header() eq "Content-Type: text/html$crlf$crlf","header()"); test(10,header(-type=>'image/gif') eq "Content-Type: image/gif$crlf$crlf","header()"); -test(11,header(-type=>'image/gif',-status=>'500 Sucks') eq "Status: 500 Sucks$crlfContent-Type: image/gif$crlf$crlf","header()"); -test(12,header(-nph=>1) eq "HTTP/1.0 200 OK$crlfContent-Type: text/html$crlf$crlf","header()"); +test(11,header(-type=>'image/gif',-status=>'500 Sucks') eq "Status: 500 Sucks${crlf}Content-Type: image/gif$crlf$crlf","header()"); +test(12,header(-nph=>1) eq "HTTP/1.0 200 OK${crlf}Content-Type: text/html$crlf$crlf","header()"); test(13,start_html() ."\n" eq <<END,"start_html()"); <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"> <HTML><HEAD><TITLE>Untitled Document</TITLE> @@ -65,7 +65,7 @@ END ; test(16,($cookie=cookie(-name=>'fred',-value=>['chocolate','chip'],-path=>'/')) eq 'fred=chocolate&chip; path=/',"cookie()"); -test(17,header(-Cookie=>$cookie) =~ m!^Set-Cookie: fred=chocolate&chip\; path=/$crlfDate:.*$crlfContent-Type: text/html$crlf$crlf!s, +test(17,header(-Cookie=>$cookie) =~ m!^Set-Cookie: fred=chocolate&chip\; path=/${crlf}Date:.*${crlf}Content-Type: text/html$crlf$crlf!s, "header(-cookie)"); test(18,start_h3 eq '<H3>'); test(19,end_h3 eq '</H3>'); |