httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestReportPerl.pm TestReport.pm
Date Mon, 31 Dec 2001 08:44:23 GMT
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
  dev-subscribe@perl.apache.org.
  
  
  
  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 test-dev-subscribe@httpd.apache.org.
  
  
  

Mime
View raw message