httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jwool...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/modules cgi.t
Date Mon, 12 Nov 2001 03:53:09 GMT
jwoolley    01/11/11 19:53:09

  Modified:    perl-framework/t/modules cgi.t
  Log:
  Use #'s on debug commentary lines
  
  Submitted by: Stas Bekman
  
  Revision  Changes    Path
  1.10      +18 -18    httpd-test/perl-framework/t/modules/cgi.t
  
  Index: cgi.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/cgi.t,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -d -u -r1.9 -r1.10
  --- cgi.t	2001/11/12 02:54:39	1.9
  +++ cgi.t	2001/11/12 03:53:09	1.10
  @@ -61,7 +61,7 @@
   foreach (sort keys %test) {
       $expected = $test{$_}{rc};
       $actual = GET_RC "$path/$_";
  -    print "return code for $_: $actual, expecting: $expected\n";
  +    print "# return code for $_: $actual, expecting: $expected\n";
       ok ($actual eq $expected);
   
       unless ($test{$_}{expect} eq 'none') {
  @@ -69,7 +69,7 @@
           $actual = GET_BODY "$path/$_";
           chomp $actual if $actual =~ /\n$/;
   
  -        print "body for $_: $actual, expecting: $expected\n";
  +        print "# body for $_: $actual, expecting: $expected\n";
           ok ($actual eq $expected);
       }
   
  @@ -81,12 +81,12 @@
   
               ## make sure cgi log got created, get size.
               if (-e $cgi_log) {
  -                print "cgi log created ok.\n";
  +                print "# cgi log created ok.\n";
                   ok 1;
                   $stat = stat($cgi_log);
                   $log_size = $$stat[7];
               } else {
  -                print "error: cgi log not created!\n";
  +                print "# error: cgi log not created!\n";
                   ok 0;
               }
           } else {
  @@ -94,11 +94,11 @@
               ## make sure log got bigger.
               if (-e $cgi_log) {
                   $stat = stat($cgi_log);
  -                print "checking that log size ($$stat[7]) is bigger than it used to be
($log_size)\n";
  +                print "# checking that log size ($$stat[7]) is bigger than it used to be
($log_size)\n";
                   ok ($$stat[7] > $log_size);
                   $log_size = $$stat[7];
               } else {
  -                print "error: cgi log does not exist!\n";
  +                print "# error: cgi log does not exist!\n";
                   ok 0;
               }
           }
  @@ -113,8 +113,8 @@
       $expected = '500';
       $actual = POST_RC "$path/bogus-perl.pl", content => "$content"x$length;
   
  -    print "posted content (length $length) to bogus-perl.pl\n";
  -    print "got return code of: $actual, expecting: $expected\n";
  +    print "# posted content (length $length) to bogus-perl.pl\n";
  +    print "# got return code of: $actual, expecting: $expected\n";
       ## should get rc 500
       ok ($actual eq $expected);
   
  @@ -123,12 +123,12 @@
           ## as long as it's under ScriptLogLength (8192)
           $stat = stat($cgi_log);
           if ($log_size < 8192) {
  -            print "checking that log size ($$stat[7]) is greater than $log_size\n";
  +            print "# checking that log size ($$stat[7]) is greater than $log_size\n";
               ok ($$stat[7] > $log_size);
           } else {
               ## should not fall in here at this point,
               ## but just in case...
  -            print "verifying log did not increase in size...\n";
  +            print "# verifying log did not increase in size...\n";
               ok ($$stat[7] eq $log_size);
           }
           $log_size = $$stat[7];
  @@ -141,7 +141,7 @@
               if (/^$content+$/) {
                   chomp;
                   $multiplier = $length unless $length > $multiplier;
  -                print "verifying that logged content is $multiplier characters\n";
  +                print "# verifying that logged content is $multiplier characters\n";
                   ok ($_ eq "$content"x$multiplier);
                   last;
               }
  @@ -150,7 +150,7 @@
   
       } else {
           ## log does not exist ##
  -        print "cgi log does not exist, test fails.\n";
  +        print "# cgi log does not exist, test fails.\n";
           ok 0;
       }
   }
  @@ -174,31 +174,31 @@
   
   }
   ## make sure its over (or equal) 8192
  -print "verifying log is greater than 8192 bytes.\n";
  +print "# verifying log is greater than 8192 bytes.\n";
   ok ($log_size >= 8192);
   
   ## make sure it does not grow now.
   GET_RC "$path/bogus1k.pl";
  -print "verifying log did not grow after making bogus request.\n";
  +print "# verifying log did not grow after making bogus request.\n";
   if (-e $cgi_log) {
       $stat = stat($cgi_log);
       ok ($log_size eq $$stat[7]);
   } else {
  -    print "log does not exist!\n";
  +    print "# log does not exist!\n";
       ok 0;
   }
   
   GET_RC "$path/bogus-perl.pl";
  -print "verifying log did not grow after making another bogus request.\n";
  +print "# verifying log did not grow after making another bogus request.\n";
   if (-e $cgi_log) {
       $stat = stat($cgi_log);
       ok ($log_size eq $$stat[7]);
   } else {
  -    print "log does not exist!\n";
  +    print "# log does not exist!\n";
       ok 0;
   }
   
  -print "checking that HEAD $path/perl.pl returns 200.\n";
  +print "# checking that HEAD $path/perl.pl returns 200.\n";
   ok HEAD_RC("$path/perl.pl") == 200;
   
   ## clean up
  
  
  

Mime
View raw message