From: Charles Bailey Date: Mon, 28 Feb 2000 03:56:51 +0000 (+0000) Subject: Repair typo -- conjunction of variable with text X-Git-Tag: accepted/trunk/20130322.191538~32948^2~70 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a8e9776147ae842531078a95c314ca89c6c73514;p=platform%2Fupstream%2Fperl.git Repair typo -- conjunction of variable with text p4raw-id: //depot/vmsperl@5308 --- diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t index 6489e5a..43d41ec 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 < Untitled Document @@ -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 '

'); test(19,end_h3 eq '

');