diff options
| author | Sage Weil <sage@newdream.net> | 2010-04-02 15:47:25 -0700 |
|---|---|---|
| committer | Sage Weil <sage@newdream.net> | 2010-04-02 20:07:34 -0700 |
| commit | 4d5ce888f252afe2df294f125c5b93ea9b3ceba4 (patch) | |
| tree | ef60d6e88337b4e8bf4d0e575fc47d3f26942086 /src/script | |
| parent | fd60670bb7320160a8b9356651de31c1007f657c (diff) | |
| download | ceph-4d5ce888f252afe2df294f125c5b93ea9b3ceba4.tar.gz | |
qa: run tests in random order
Diffstat (limited to 'src/script')
| -rwxr-xr-x | src/script/permute | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/script/permute b/src/script/permute new file mode 100755 index 00000000000..63dd910a1f9 --- /dev/null +++ b/src/script/permute @@ -0,0 +1,10 @@ +#!/usr/bin/perl + +use strict; +my @lines = <>; + +while (@lines) { + my $r = int rand(scalar(@lines)); + print $lines[$r]; + splice(@lines, $r, 1); +} |