httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestSort.pm
Date Wed, 05 Dec 2001 05:20:45 GMT
dougm       01/12/04 21:20:45

  Modified:    perl-framework/Apache-Test/lib/Apache TestSort.pm
  Log:
  dont want an explicit -seed option but env var can be a pain
  so if -order is number assume it is the random seed
  
  Revision  Changes    Path
  1.2       +6 -0      httpd-test/perl-framework/Apache-Test/lib/Apache/TestSort.pm
  
  Index: TestSort.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSort.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- TestSort.pm	2001/06/27 17:30:20	1.1
  +++ TestSort.pm	2001/12/05 05:20:44	1.2
  @@ -49,6 +49,12 @@
   
       my $times = $args->{times} || 1;
       my $order = $args->{order} || 'rotate';
  +    if ($order =~ /^\d+$/) {
  +        #dont want an explicit -seed option but env var can be a pain
  +        #so if -order is number assume it is the random seed
  +        $ENV{APACHE_TEST_SEED} = $order;
  +        $order = 'random';
  +    }
       my $sort = \&{$order};
   
       # re-shuffle the list according to the requested order
  
  
  

Mime
View raw message