1 #!/usr/local/bin/perl -sw
9 my @sort_styles = qw( plain orcish ST GRT ) ;
15 name => 'simple string',
16 data => [ qw( z e a k ) ],
17 gold => sub { $a cmp $b },
18 args => [ qw( string ) ],
22 name => 'simple number',
23 data => [ 32, 2, 9, 7 ],
24 gold => sub { $a <=> $b },
25 args => [ qw( number ) ],
29 common_driver( $sort_tests, \@sort_styles ) ;