t/descending_grt_string.t

   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 ;