cvs commit: modperl/t/net/perl constants.pl

[dougm]

dougm       00/12/22 16:04:37

  Modified:    .        Changes
               t/modules cgi.t
               t/net/perl constants.pl
  Log:
  adjust test output (modules/{cgi,constants}) to make 5.7.0-dev
  Test::Harness happy
  
  Revision  Changes    Path
  1.563     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.562
  retrieving revision 1.563
  diff -u -r1.562 -r1.563
  --- Changes   2000/12/22 20:56:24     1.562
  +++ Changes   2000/12/23 00:04:36     1.563
  @@ -10,6 +10,9 @@
   
   =item 1.24_02-dev
   
  +adjust test output (modules/{cgi,constants}) to make 5.7.0-dev
  +Test::Harness happy
  +
   fix $r->custom_response bug which was triggering core dumps if no
   ErrorDocuments were configured, thanks to Paul Hodges for the spot
   
  
  
  
  1.8       +1 -1      modperl/t/modules/cgi.t
  
  Index: cgi.t
  ===================================================================
  RCS file: /home/cvs/modperl/t/modules/cgi.t,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- cgi.t     1999/08/03 23:25:15     1.7
  +++ cgi.t     2000/12/23 00:04:36     1.8
  @@ -36,7 +36,7 @@
   print "1..$tests\nok 1\n";
   print fetch($ua, "http://$net::httpserver$net::perldir/cgi.pl?PARAM=2");
   print fetch($ua, "http://$net::httpserver$net::perldir/cgi.pl?PARAM=%33");
  -print upload($ua, "http://$net::httpserver$net::perldir/cgi.pl", "4 (fileupload)");
  +print upload($ua, "http://$net::httpserver$net::perldir/cgi.pl", "4 #(fileupload)");
   if($test_mod_cgi) { 
       print fetch($ua, "http://$net::httpserver/cgi-bin/cgi.pl?PARAM=5");
   }
  
  
  
  1.11      +1 -1      modperl/t/net/perl/constants.pl
  
  Index: constants.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/net/perl/constants.pl,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- constants.pl      1998/11/24 23:15:12     1.10
  +++ constants.pl      2000/12/23 00:04:37     1.11
  @@ -64,7 +64,7 @@
       eval {
        $name = Apache::Constants->name($val);
       };
  -    print defined $val ? "" : "not ", "ok $ix ($name|$sym: $val)\n";
  +    print defined $val ? "" : "not ", "ok $ix #($name|$sym: $val)\n";
       $ix++;
       last if $ix >= $tests;
   }