geoff 2004/10/14 21:32:36
Modified: perl-framework/Apache-Test/t/conf .cvsignore Added: perl-framework/Apache-Test/t/conf modperl_extra.pl.in perl-framework/Apache-Test/t/response/TestMore testmorepm.pm testpm.pm Log: add missing files required for Test::More tests Revision Changes Path 1.3 +1 -0 httpd-test/perl-framework/Apache-Test/t/conf/.cvsignore Index: .cvsignore =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/t/conf/.cvsignore,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- .cvsignore 19 Oct 2001 03:09:32 -0000 1.2 +++ .cvsignore 15 Oct 2004 04:32:36 -0000 1.3 @@ -4,4 +4,5 @@ apache_test_config.pm modperl_inc.pl modperl_startup.pl +modperl_extra.pl 1.1 httpd-test/perl-framework/Apache-Test/t/conf/modperl_extra.pl.in Index: modperl_extra.pl.in =================================================================== use strict; use warnings FATAL => qw(all); use File::Spec (); use lib (); # empty so we can calculate the lib to use my @libs = (File::Spec->catfile('@ServerRoot@', 'response'), File::Spec->catfile('@ServerRoot@', qw(.. lib))); lib->import(@libs); 1; 1.1 httpd-test/perl-framework/Apache-Test/t/response/TestMore/testmorepm.pm Index: testmorepm.pm =================================================================== package TestMore::testmorepm; use strict; use warnings FATAL => qw(all); use Test::More; use Apache::Test qw(-withtestmore); sub handler { plan shift, tests => 2; is (1, 1, 'called Test::More::is()'); like ('wow', qr/wow/, 'called Test::More::like()'); 0; } 1; 1.1 httpd-test/perl-framework/Apache-Test/t/response/TestMore/testpm.pm Index: testpm.pm =================================================================== package TestMore::testpm; use strict; use warnings FATAL => qw(all); use Apache::Test; use Apache::TestUtil; sub handler { plan shift, tests => 1; ok t_cmp(1, 1, 'called Apache::Test::ok()'); 0; } 1;