use strict; use warnings FATAL => 'all'; use Apache::Test; use Apache::TestUtil; use Apache::TestRequest qw/GET_BODY/; plan tests => 1; # (0) Prepare environment # - Read contents of header and footer open my $h, '<', 't/htdocs/head.html' or die; open my $f, '<', 't/htdocs/foot.html' or die; chomp(my $head = do { local $/; <$h> }); chomp(my $foot = do { local $/; <$f> }); close $h; close $f; # - Open test file for writing open my $t, '>', 't/htdocs/test.html' or die; my $test; # (1) -less head $test = <Test This is a test page. END seek($t, 0, 0); print $t $test; ok GET_BODY('/test.html'), <-less head'; Test $head This is a test page. $foot END close $t;