[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-test-cvs
Subject:    cvs commit: httpd-test/perl-framework/t/modules env.t
From:       coar () apache ! org
Date:       2001-10-23 15:18:18
[Download RAW message or body]

coar        01/10/23 08:18:18

  Modified:    perl-framework/t/apache 404.t
               perl-framework/t/modules env.t
  Log:
  Make -v verbosity '#' comment-safe
  
  Revision  Changes    Path
  1.4       +2 -1      httpd-test/perl-framework/t/apache/404.t
  
  Index: 404.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/apache/404.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- 404.t	2001/10/22 19:07:00	1.3
  +++ 404.t	2001/10/23 15:18:18	1.4
  @@ -8,7 +8,8 @@
   
   my $four_oh_four = GET_STR "/404/not/found/test";
   
  -print "$four_oh_four\n";
  +print "# GET_STR Response:\n# ",
  +      join("\n# ", split(/\n/, $four_oh_four)), "\n";
   
   ok (($four_oh_four =~ /HTTP\/1\.[01] 404 Not Found/)
       || ($four_oh_four =~ /RC:\s+404.*Message:\s+Not Found/s));
  
  
  
  1.12      +2 -1      httpd-test/perl-framework/t/modules/env.t
  
  Index: env.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/env.t,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -u -r1.11 -r1.12
  --- env.t	2001/10/22 10:09:53	1.11
  +++ env.t	2001/10/23 15:18:18	1.12
  @@ -24,7 +24,8 @@
       sok {
           $actual = GET_BODY "/modules/env/$_.shtml";
           $actual =~ s/[\r\n]+$//s;
  -        print "$_: EXPECT ->$expected<- ACTUAL ->$actual<-\n";
  +        print "# $_: /modules/env/$_.shtml\n",
  +              "# $_: EXPECT ->$expected<- ACTUAL ->$actual<-\n";
           return $actual eq $expected;
       };
   }
  
  
  

[prev in list] [next in list] [prev in thread] [next in thread]