diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/CGI/t/html.t')
| -rw-r--r-- | gnu/usr.bin/perl/lib/CGI/t/html.t | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gnu/usr.bin/perl/lib/CGI/t/html.t b/gnu/usr.bin/perl/lib/CGI/t/html.t index b3c462c0790..dbab2fcdfd5 100644 --- a/gnu/usr.bin/perl/lib/CGI/t/html.t +++ b/gnu/usr.bin/perl/lib/CGI/t/html.t @@ -62,14 +62,7 @@ test(13,start_html() ."\n" eq <<END,"start_html()"); </head><body> END ; -test(14,start_html(-dtd=>"-//IETF//DTD HTML 3.2//FR",-lang=>'fr') ."\n" eq <<END,"start_html()"); -<!DOCTYPE html - PUBLIC "-//IETF//DTD HTML 3.2//FR"> -<html xmlns="http://www.w3.org/1999/xhtml" lang="fr" xml:lang="fr"><head><title>Untitled Document</title> -</head><body> -END - ; -test(15,start_html(-Title=>'The world of foo') ."\n" eq <<END,"start_html()"); +test(14,start_html(-Title=>'The world of foo') ."\n" eq <<END,"start_html()"); <?xml version="1.0" encoding="iso-8859-1"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" @@ -78,6 +71,14 @@ test(15,start_html(-Title=>'The world of foo') ."\n" eq <<END,"start_html()"); </head><body> END ; +# Note that this test will turn off XHTML until we make a new CGI object. +test(15,start_html(-dtd=>"-//IETF//DTD HTML 3.2//FR",-lang=>'fr') ."\n" eq <<END,"start_html()"); +<!DOCTYPE html + PUBLIC "-//IETF//DTD HTML 3.2//FR"> +<html lang="fr"><head><title>Untitled Document</title> +</head><body> +END + ; test(16,($cookie=cookie(-name=>'fred',-value=>['chocolate','chip'],-path=>'/')) eq 'fred=chocolate&chip; path=/',"cookie()"); my $h = header(-Cookie=>$cookie); test(17,$h =~ m!^Set-Cookie: fred=chocolate&chip\; path=/${CRLF}Date:.*${CRLF}Content-Type: text/html; charset=ISO-8859-1${CRLF}${CRLF}!s, |