You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-dev@httpd.apache.org by Stas Bekman <st...@stason.org> on 2001/12/24 20:26:56 UTC
Re: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestSmoke.pm
stas@apache.org 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:stas@stason.org http://ticketmaster.com http://apacheweek.com
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/