httpd-test-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject Re: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestSmoke.pm
Date Mon, 24 Dec 2001 19:26:56 GMT
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/


Mime
View raw message