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

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

use SubExporterCompatibility qw(MyStr);

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;
	5	use Test::Exception;
	6	use FindBin;
	7	use lib "$FindBin::Bin/lib";
	8
	9	eval "use Sub::Exporter";
	10	plan $@
	11	? ( skip_all => "Tests require Sub::Exporter" )
	12	: ( tests => 3 );
	13	}
	14
	15	use SubExporterCompatibility qw(MyStr);
	16
	17	ok MyStr->check('aaa'), "Correctly passed";
	18	ok !MyStr->check([1]), "Correctly fails";
	19	ok something(), "Found the something method";
	20