t/name.t

   1 #!/usr/local/bin/perl -sw
   2
   3 use strict ;
   4 use Test::More tests => 2 ;
   5
   6 use Sort::Maker ;
   7
   8 my $sorter = make_sorter( name => 'sort_func', 'plain', number => 1 ) ;
   9
  10 #print "$@\n" unless $sorter ;
  11
  12 my @input = ( 10, 3, 40, 18 ) ;
  13
  14 my @sorted = sort_func( @input ) ;
  15
  16 ok( 1, 'sort name export' ) ;
  17
  18 my $ok = eq_array( \@input, \@sorted ) ;
  19
  20 ok( $ok, 'sort number' ) ;
  21
  22 exit ;