Missed the html test from change #2787.

p4raw-link: @2787 on //depot/cfgperl: 71f3e297ff71d9b213ccf3230601eae8b4e9b685

p4raw-id: //depot/cfgperl@2793

diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t
index 8c38dd6..c673806 100755 (executable)
--- a/t/lib/cgi-html.t
+++ b/t/lib/cgi-html.t
@@ -9,12 +9,12 @@ BEGIN {
     require Config; import Config;
 }
 
-BEGIN {$| = 1; print "1..17\n"; }
+BEGIN {$| = 1; print "1..20\n"; }
 BEGIN {$eol = "\n"   if $^O eq 'VMS';
        $eol = "\r\n" if $Config{ebcdic} eq 'define';
        $eol = "\cM\cJ" unless defined $eol; }
 END {print "not ok 1\n" unless $loaded;}
-use CGI (':standard','-no_debug');
+use CGI (':standard','-no_debug','*h3','start_table');
 $loaded = 1;
 print "ok 1\n";
 
@@ -66,3 +66,6 @@ test(16,($cookie=cookie(-name=>'fred',-value=>['chocolate','chip'],-path=>'/'))
      'fred=chocolate&chip; path=/',"cookie()");
 test(17,header(-Cookie=>$cookie) =~ m!^Set-Cookie: fred=chocolate&chip\; path=/${eol}Date:.*${eol}Content-Type: text/html${eol}${eol}!s,
      "header(-cookie)");
+test(18,start_h3 eq '<H3>');
+test(19,end_h3 eq '</H3>');
+test(20,start_table({-border=>undef}) eq '<TABLE BORDER>');