diff options
Diffstat (limited to 'debian/perl-framework/Apache-Test/t/response')
-rw-r--r-- | debian/perl-framework/Apache-Test/t/response/TestMore/testmorepm.pm | 21 | ||||
-rw-r--r-- | debian/perl-framework/Apache-Test/t/response/TestMore/testpm.pm | 18 |
2 files changed, 39 insertions, 0 deletions
diff --git a/debian/perl-framework/Apache-Test/t/response/TestMore/testmorepm.pm b/debian/perl-framework/Apache-Test/t/response/TestMore/testmorepm.pm new file mode 100644 index 0000000..12cb491 --- /dev/null +++ b/debian/perl-framework/Apache-Test/t/response/TestMore/testmorepm.pm @@ -0,0 +1,21 @@ +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; diff --git a/debian/perl-framework/Apache-Test/t/response/TestMore/testpm.pm b/debian/perl-framework/Apache-Test/t/response/TestMore/testpm.pm new file mode 100644 index 0000000..8c550ed --- /dev/null +++ b/debian/perl-framework/Apache-Test/t/response/TestMore/testpm.pm @@ -0,0 +1,18 @@ +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; |