You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/02/26 20:13:44 UTC

cvs commit: modperl-2.0/t/modules include.t

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/");
  }