1#!./perl 2 3use strict; 4use warnings; 5 6use Test::More tests => 6; 7 8use List::Util qw(shuffle); 9 10my @r; 11 12@r = shuffle(); 13ok( !@r, 'no args'); 14 15@r = shuffle(9); 16is( 0+@r, 1, '1 in 1 out'); 17is( $r[0], 9, 'one arg'); 18 19my @in = 1..100; 20@r = shuffle(@in); 21is( 0+@r, 0+@in, 'arg count'); 22 23isnt( "@r", "@in", 'result different to args'); 24 25my @s = sort { $a <=> $b } @r; 26is( "@in", "@s", 'values'); 27