[EMAIL PROTECTED] wrote:
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
ouch, adding the generate_script() as well. Forgot to add the comment :(
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__
--
_____________________________________________________________________ Stas Bekman JAm_pH -- Just Another mod_perl Hacker http://stason.org/ mod_perl Guide http://perl.apache.org/guide mailto:[EMAIL PROTECTED] http://ticketmaster.com http://apacheweek.com http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
