You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by ge...@apache.org on 2004/10/15 06:32:36 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/t/response/TestMore testmorepm.pm testpm.pm
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;