diff options
Diffstat (limited to '')
-rw-r--r-- | debian/perl-framework/Apache-Test/t/TEST.PL | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/debian/perl-framework/Apache-Test/t/TEST.PL b/debian/perl-framework/Apache-Test/t/TEST.PL new file mode 100644 index 0000000..bbdc93e --- /dev/null +++ b/debian/perl-framework/Apache-Test/t/TEST.PL @@ -0,0 +1,42 @@ +use strict; + +use lib qw(lib ../lib); + +use warnings FATAL => 'all'; + +use Apache::TestRun (); + +package MyTest; + +use vars qw(@ISA); +@ISA = qw(Apache::TestRun); + +#subclass new_test_config to add some config vars which will +#be replaced in generated config, see t/conf/extra.conf.in + +#'make test' runs -clean by default, so to actually see the replacements: +#perl t/TEST apxs ... +#cat t/conf/extra.conf +#perl t/TEST -clean + +sub new_test_config { + my $self = shift; + + $self->{conf_opts}->{authname} = 'gold club'; + $self->{conf_opts}->{allowed_users} = 'dougm sterling'; + + return $self->SUPER::new_test_config; +} + +sub bug_report { + my $self = shift; + + print <<EOI; ++-----------------------------------------------------+ +| To report problems please refer to the SUPPORT file | ++-----------------------------------------------------+ +EOI +} + +MyTest->new->run(@ARGV); + |