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