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 TestSmoke.pm
Date Mon, 24 Dec 2001 19:17:48 GMT
stas        01/12/24 11:17:48

  Modified:    perl-framework/Apache-Test/lib/Apache TestSmoke.pm
  Log:
  change the order of modules loading to avoid inter-dependency problem
  
  Revision  Changes    Path
  1.5       +28 -0     httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm
  
  Index: TestSmoke.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- TestSmoke.pm	2001/12/11 05:14:46	1.4
  +++ TestSmoke.pm	2001/12/24 19:17:48	1.5
  @@ -3,9 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::Test ();
   use Apache::TestTrace;
   
   use Getopt::Long qw(GetOptions);
  +use File::Spec::Functions qw(catfile);
   use Digest::MD5 ();
   use POSIX ();
   use FindBin;
  @@ -410,6 +412,32 @@
       if 'tests' argument isn't provided all available tests will be run
   EOM
   }
  +
  +# generate t/SMOKE script (or a different filename) which will drive
  +# Apache::TestSmoke
  +sub generate_script {
  +    my ($class, $file) = @_;
  +
  +    $file ||= catfile 't', 'SMOKE';
  +
  +    my $content = <<'EOM';
  +use strict;
  +use warnings FATAL => 'all';
  +
  +use FindBin;
  +use lib "$FindBin::Bin/../Apache-Test/lib";
  +use lib "$FindBin::Bin/../lib";
  +
  +use Apache::TestSmoke ();
  +
  +Apache::TestSmoke->new(@ARGV)->run;
  +EOM
  +
  +    Apache::Test::config()->write_perlscript($file, $content);
  +
  +}
  +
  +
   
   1;
   __END__
  
  
  

Mime
View raw message