t/bad_code.t

   1 #!/usr/local/bin/perl -sw
   2
   3 use strict ;
   4
   5 use lib 't' ;
   6 use lib '..' ;
   7
   8 use Test::More tests => 2 ;
   9
  10 use Sort::Maker qw( :all ) ;
  11
  12 my $err = make_sorter( 'plain', string => [] ) ;
  13 ok( !$err, 'bad extraction code - array ref' ) ;
  14
  15 $err = make_sorter( 'GRT', number => \'foo' ) ;
  16 ok( !$err, 'bad extraction code - scalar ref' ) ;
  17
  18