perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/apache scanhdrs.t
Date Sat, 08 Mar 2003 08:54:04 GMT
stas        2003/03/08 00:54:04

  Modified:    t/apache scanhdrs.t
  Log:
  convert the test to use t_cmp, so undefs are automatically handled, rather
  then having the script die
  
  Revision  Changes    Path
  1.4       +7 -4      modperl-2.0/t/apache/scanhdrs.t
  
  Index: scanhdrs.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apache/scanhdrs.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- scanhdrs.t	11 Sep 2002 00:50:31 -0000	1.3
  +++ scanhdrs.t	8 Mar 2003 08:54:03 -0000	1.4
  @@ -2,6 +2,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  +use Apache::TestUtil;
   use Apache::TestRequest;
   
   plan tests => 4;
  @@ -11,10 +12,12 @@
   
   my $res = GET $location;
   
  -ok $res->content =~ /^ok 1$/m;
  +t_debug $res->as_string;
   
  -ok $res->header('Content-Type') eq 'text/test-output';
  +ok t_cmp(qr/^ok 1$/m, $res->content);
   
  -ok $res->header('X-Perl-Module') eq $module;
  +ok t_cmp('text/test-output', scalar $res->header('Content-Type'));
   
  -ok $res->message =~ /beer/;
  +ok t_cmp($module, scalar $res->header('X-Perl-Module'));
  +
  +ok t_cmp(qr/beer/, $res->message);
  
  
  

Mime
View raw message