shuffle-subtests.pl

use strict;
use warnings;

use Test::More;

BEGIN {
    use List::Util ();

    no warnings 'redefine';

    my $orig_subtest = \&subtest;

    my @tests;
    *subtest = sub {
        my($name, $block) = @_;

        push @tests, [$name, $block];
    };

    my $orig_done_testing = \&done_testing;

    *done_testing = sub {
        for my $pair(List::Util::shuffle(@tests)) {
            $orig_subtest->(@$pair);
        }
        $orig_done_testing->();
    };
}

subtest 'foo', sub {
    pass "in foo";
};

subtest 'bar', sub {
    pass "in bar";
};

subtest 'baz', sub {
    pass "in baz";
};

done_testing;