1 #!/usr/local/bin/perl -sw
8 use Test::More tests => 2 ;
10 use Sort::Maker qw( :all ) ;
12 my $err = make_sorter( 'plain', string => [] ) ;
13 ok( !$err, 'bad extraction code - array ref' ) ;
15 $err = make_sorter( 'GRT', number => \'foo' ) ;
16 ok( !$err, 'bad extraction code - scalar ref' ) ;