perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/modules include.t
Date Tue, 26 Feb 2002 19:13:44 GMT
dougm       02/02/26 11:13:44

  Added:       t/modules include.t
  Log:
  test for mod_include include virtual of a mod_perl script
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/modules/include.t
  
  Index: include.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestRequest;
  use Apache::TestUtil;
  
  #test for mod_include include virtual of a mod_perl script
  my @patterns = (
      'mod_perl mod_include test',
      'Hello World',
      'footer',
  );
  
  plan tests => 2 + @patterns, ['include'];
  
  my $location = "/includes/test.shtml";
  
  my($res, $str);
  
  $res = GET $location;
  
  ok $res->is_success;
  
  $str = $res->content;
  
  ok $str;
  
  for my $pat (@patterns) {
      ok t_cmp(qr{$pat}, $str, "/$pat/");
  }
  
  
  

Mime
View raw message