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 TestHarness.pm
Date Fri, 12 Sep 2003 02:20:27 GMT
stas        2003/09/11 19:20:27

  Modified:    perl-framework/Apache-Test/lib/Apache TestHarness.pm
  Log:
  split run() into run() and get_tests() so we can re-use get_tests from
  TestSmoke.pm
  
  Revision  Changes    Path
  1.12      +13 -5     httpd-test/perl-framework/Apache-Test/lib/Apache/TestHarness.pm
  
  Index: TestHarness.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestHarness.pm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -u -r1.11 -r1.12
  --- TestHarness.pm	20 Oct 2001 00:37:28 -0000	1.11
  +++ TestHarness.pm	12 Sep 2003 02:20:27 -0000	1.12
  @@ -96,14 +96,13 @@
       @new_tests;
   }
   
  -sub run {
  +sub get_tests {
       my $self = shift;
  -    my $args = shift || {};
  +    my $args = shift;
       my @tests = ();
   
       chdir_t();
   
  -    $Test::Harness::verbose ||= $args->{verbose};
       my $ts = $args->{tests} || [];
   
       if (@$ts) {
  @@ -145,11 +144,20 @@
       #dir//foo output is annoying, fix that.
       s:/+:/:g for @tests;
   
  -    if (my(@subtests) = @{ $args->{subtests} }) {
  +    return @tests;
  +}
  +
  +sub run {
  +    my $self = shift;
  +    my $args = shift || {};
  +
  +    $Test::Harness::verbose ||= $args->{verbose};
  +
  +    if (my(@subtests) = @{ $args->{subtests} || [] }) {
           $ENV{HTTPD_TEST_SUBTESTS} = "@subtests";
       }
   
  -    Test::Harness::runtests(@tests);
  +    Test::Harness::runtests($self->get_tests($args, @_));
   }
   
   1;
  
  
  

Mime
View raw message