Commit | Line | Data |
7468c584 |
1 | #!/usr/local/bin/perl -sw |
2 | |
3 | use strict ; |
4 | |
5 | use lib 't' ; |
6 | use lib '..' ; |
7 | require 'common.pm' ; |
8 | |
9 | use vars qw( $a $b ) ; |
10 | |
11 | my @sort_styles = qw( GRT ) ; |
12 | |
13 | my $sort_tests = [ |
14 | |
15 | { |
16 | skip => 0, |
17 | name => 'descending fixed - numeric data', |
18 | data => [ 'dog', 10, 'camel', 2 ], |
19 | gold => sub { $b cmp $a }, |
20 | args => { |
21 | |
22 | fixed => [ qw( string descending fixed 3 ) ], |
23 | varying => [ qw( string descending varying ) ], |
24 | }, |
25 | }, |
26 | ] ; |
27 | |
28 | our $bench ; |
29 | |
30 | if ( $bench ) { |
31 | benchmark_driver( $sort_tests, \@sort_styles ) ; |
32 | } |
33 | else { |
34 | test_driver( $sort_tests, \@sort_styles ) ; |
35 | } |
36 | |
37 | exit ; |