stas 01/12/31 00:44:23
Added: perl-framework/Apache-Test/lib/Apache TestReportPerl.pm
TestReport.pm
Log:
- modules for autogeneration bug/config REPORT script
Revision Changes Path
1.1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestReportPerl.pm
Index: TestReportPerl.pm
===================================================================
package Apache::TestReportPerl;
use strict;
use warnings FATAL => 'all';
use Apache::Test ();
use Apache::TestReport ();
use File::Spec::Functions qw(catfile);
# a subclass of Apache::TestReport that generates a bug report script
use vars qw(@ISA);
@ISA = qw(Apache::TestReport);
# generate t/REPORT script (or a different filename) which will drive
# Apache::TestReportPerl
sub generate_script {
my ($class, $file) = @_;
$file ||= catfile 't', 'REPORT';
local $/;
my $content = <DATA>;
Apache::Test::config()->write_perlscript($file, $content);
}
1;
__DATA__
use strict;
use FindBin qw($Bin);
use lib "$Bin/../lib";
use ModPerl::Config ();
my $env = ModPerl::Config::as_string();
{
local $/ = undef;
my $template = <DATA>;
$template =~ s/\[CONFIG\]/$env/;
print $template;
}
__DATA__
-------------8<----------Start Bug Report ------------8<----------
1. Problem Description:
[DESCRIBE THE PROBLEM HERE]
2. Used Components and their Configuration:
[CONFIG]
3. This is the core dump trace: (if you get a core dump):
[CORE TRACE COMES HERE]
-------------8<----------End Bug Report --------------8<----------
Note: Complete the rest of the details and post this bug report to dev
<at> perl.apache.org. To subscribe to the list send an empty email to
[EMAIL PROTECTED]
1.1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestReport.pm
Index: TestReport.pm
===================================================================
package Apache::TestReport;
use strict;
use warnings FATAL => 'all';
use Apache::Test ();
use File::Spec::Functions qw(catfile);
# generate t/REPORT script (or a different filename) which will drive
# Apache::TestReport
sub generate_script {
my ($class, $file) = @_;
$file ||= catfile 't', 'REPORT';
local $/;
my $content = <DATA>;
Apache::Test::config()->write_perlscript($file, $content);
}
1;
__DATA__
use strict;
use FindBin qw($Bin);
use lib "$Bin/../Apache-Test/lib";
use Apache::TestConfig ();
my $env = Apache::TestConfig::as_string();
{
local $/ = undef;
my $template = <DATA>;
$template =~ s/\[CONFIG\]/$env/;
print $template;
}
__DATA__
-------------8<----------Start Bug Report ------------8<----------
1. Problem Description:
[DESCRIBE THE PROBLEM HERE]
2. Used Components and their Configuration:
[CONFIG]
3. This is the core dump trace: (if you get a core dump):
[CORE TRACE COMES HERE]
-------------8<----------End Bug Report --------------8<----------
Note: Complete the rest of the details and post this bug report to
test-dev <at> httpd.apache.org. To subscribe to the list send an empty
email to [EMAIL PROTECTED]
