Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm
Precedence: bulk
Reply-To: dev@perl.apache.org
Date: 26 Feb 2002 19:13:44 -0000
Message-ID: <20020226191344.37612.qmail@icarus.apache.org>
From: dougm@apache.org
To: modperl-2.0-cvs@apache.org
Subject: 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/");
  }