7 require Config; import Config;
8 keys %Config; # Silence warning
9 if ($Config{extensions} !~ /\bList\/Util\b/) {
10 print "1..0 # Skip: List::Util was not built\n";
16 use Test::More tests => 6;
18 use List::Util qw(shuffle);
26 is( 0+@r, 1, '1 in 1 out');
27 is( $r[0], 9, 'one arg');
31 is( 0+@r, 0+@in, 'arg count');
33 isnt( "@r", "@in", 'result different to args');
35 my @s = sort { $a <=> $b } @r;
36 is( "@in", "@s", 'values');