[urisagit/Sort-Maker.git] / t / bad_code.t

#!/usr/local/bin/perl -sw

use strict ;

use lib 't' ;
use lib '..' ;

use Test::More tests => 2 ;

use Sort::Maker qw( :all ) ;

my $err = make_sorter( 'plain', string => [] ) ;
ok( !$err, 'bad extraction code - array ref' ) ;

$err = make_sorter( 'GRT', number => \'foo' ) ;
ok( !$err, 'bad extraction code - scalar ref' ) ;
Commit	Line	Data
7468c584	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