cvs commit: httpd-test/perl-framework/t/modules expires.t

[co...@apache.org]

coar        01/10/21 09:07:53

  Modified:    perl-framework/t/modules expires.t
  Log:
  Add '#' prefix to verbose lines
  
  Revision  Changes    Path
  1.8       +10 -10    httpd-test/perl-framework/t/modules/expires.t
  
  Index: expires.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/expires.t,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -u -r1.7 -r1.8
  --- expires.t	2001/10/16 20:31:51	1.7
  +++ expires.t	2001/10/21 16:07:53	1.8
  @@ -47,7 +47,7 @@
   foreach my $page (@page) {
       my $head = HEAD_STR "/modules/expires/$page";
       $head = '' unless defined $head;
  -    print "debug: $page\n$head\n";
  +    print "# debug: $page\n$head\n";
       ok ($head =~ /^HTTP\/1\.[1|0] 200 OK/);
       ok expires_test(1,$head);
   }
  @@ -69,7 +69,7 @@
       ## if ExpiresActive is 'On', everything else will be inherited ##
       foreach my $page (@page) {
           my $head = HEAD_STR "/modules/expires/htaccess/$page";
  -        print "---\n$ExpiresActive";
  +        print "# ---\n# $ExpiresActive";
           ok expires_test(($on_off eq 'On'),$head);
       }
   
  @@ -88,7 +88,7 @@
           write_htaccess($directive_string);
           foreach my $page (@page) {
               $head = HEAD_STR "/modules/expires/htaccess/$page";
  -            print "---\n$directive_string";
  +            print "#---\n# $directive_string";
               ok expires_test(($on_off eq 'On'), $head);
           }
   
  @@ -102,7 +102,7 @@
           write_htaccess($directive_string);
           foreach my $page (@page) {
               $head = HEAD_STR "/modules/expires/htaccess/$page";
  -            print "---\n$directive_string";
  +            print "# ---\n# $directive_string";
               ok expires_test(($on_off eq 'On'), $head);
           }
   
  @@ -120,7 +120,7 @@
           write_htaccess($directive_string);
           foreach my $page (@page) {
               $head = HEAD_STR "/modules/expires/htaccess/$page";
  -            print "---\n$directive_string";
  +            print "# ---\n# $directive_string";
               ok expires_test(($on_off eq 'On'), $head);
           }
       }
  @@ -195,7 +195,7 @@
   
       foreach my $header (split /\n/, $head_str) {
           if ($header =~ /^([\-\w]+): (.*)$/) {
  -            print "debug: [$1] [$2]\n";
  +            print "# debug: [$1] [$2]\n";
               $headers{$names{$1}} = $2 if exists $names{$1};
           }
       }
  @@ -204,13 +204,13 @@
       return !$headers{expires} unless ($expires_active);
   
       for my $h (grep !/^type$/, values %names) {
  -        print "debug: $h @{[$headers{$h}||'']}\n";
  +        print "# debug: $h @{[$headers{$h}||'']}\n";
           if ($headers{$h}) {
               $headers{$h} = convert_to_time($headers{$h}) || 0;
           } else {
               $headers{$h} = 0;
           }
  -        print "debug: $h $headers{$h}\n";
  +        print "# debug: $h $headers{$h}\n";
       }
   
       my $exp_conf = '';
  @@ -242,8 +242,8 @@
           $actual = $headers{expires} - $headers{access};
       }
   
  -    print "debug: expected: $expected\n";
  -    print "debug: actual  : $actual\n";
  +    print "# debug: expected: $expected\n";
  +    print "# debug: actual  : $actual\n";
       return ($actual == $expected);
   
   }