1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
# Licensed to the Apache Software Foundation (ASF) under one or more
# contributor license agreements. See the NOTICE file distributed with
# this work for additional information regarding copyright ownership.
# The ASF licenses this file to You under the Apache License, Version 2.0
# (the "License"); you may not use this file except in compliance with
# the License. You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
package Apache::TestSort;
use strict;
use warnings FATAL => 'all';
use Apache::TestTrace;
sub repeat {
my($list, $times) = @_;
# a, a, b, b
@$list = map { ($_) x $times } @$list;
}
sub rotate {
my($list, $times) = @_;
# a, b, a, b
@$list = (@$list) x $times;
}
sub random {
my($list, $times) = @_;
rotate($list, $times); #XXX: allow random,repeat
my $seed = $ENV{APACHE_TEST_SEED} || '';
my $info = "";
if ($seed) {
$info = " (user defined)";
# so we could reproduce the order
}
else {
$info = " (autogenerated)";
$seed = time ^ ($$ + ($$ << 15));
}
warning "Using random number seed: $seed" . $info;
srand($seed);
#from perlfaq4.pod
for (my $i = @$list; --$i; ) {
my $j = int rand($i+1);
next if $i == $j;
@$list[$i,$j] = @$list[$j,$i];
}
}
sub run {
my($self, $list, $args) = @_;
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
if (defined &$sort) {
$sort->($list, $times);
}
else {
error "unknown order '$order'";
}
}
1;
|
