1 #!/usr/local/bin/perl -sw
9 my $sort_styles = [ qw( plain orcish ST GRT ) ] ;
15 name => 'arrays of strings',
17 [ rand_token( 8, 20 ) ]
20 gold => sub { $a->[0] cmp $b->[0] },
21 args => [ qw( string $_->[0] ) ],
25 name => 'arrays of numbers',
27 [ rand_number( 1, 20 ) ]
30 gold => sub { $a->[0] <=> $b->[0] },
31 args => [ qw( number $_->[0] ) ],
35 name => 'arrays of multiple strings',
38 [ rand_token( 8, 20 ), rand_token( 8, 20 ), ]
41 gold => sub { $a->[0] cmp $b->[0] ||
42 $a->[1] cmp $b->[1] },
43 args => [ qw( string $_->[0] string $_->[1] ) ],
47 name => 'arrays of multiple numbers',
49 [ rand_number( 1, 20 ), rand_number( 1, 20 ) ]
52 gold => sub { $a->[0] <=> $b->[0] ||
53 $a->[1] <=> $b->[1] },
54 args => [ qw( number $_->[0] number $_->[1] ) ],
58 common_driver( $sort_tests, $sort_styles ) ;