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
