[gitmo/MooseX-Types.git] / t / 14_compatibility-sub-exporter.t

BEGIN {
	use strict;
	use warnings;
	use Test::More;
    use FindBin;
    use lib "$FindBin::Bin/lib";   
    
    eval "use Sub::Exporter";
    plan $@
        ? ( skip_all => "Tests require Sub::Exporter" )
        : ( tests => 3 );
}

use SubExporterCompatibility qw(MyStr something);
	
ok MyStr->check('aaa'), "Correctly passed";
ok !MyStr->check([1]), "Correctly fails";
ok something(), "Found the something method";
Commit	Line	Data
6974ed90	1	BEGIN {
	2	use strict;
	3	use warnings;
	4	use Test::More;
6974ed90	5	use FindBin;
	6	use lib "$FindBin::Bin/lib";
	7
	8	eval "use Sub::Exporter";
	9	plan $@
	10	? ( skip_all => "Tests require Sub::Exporter" )
	11	: ( tests => 3 );
	12	}
	13
077ac262	14	use SubExporterCompatibility qw(MyStr something);
077ac262	15
6974ed90	16	ok MyStr->check('aaa'), "Correctly passed";
6974ed90	17	ok !MyStr->check([1]), "Correctly fails";
10390913	18	ok something(), "Found the something method";