[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";

    use Test::Requires { 'Sub::Exporter' => '0' };
}

use SubExporterCompatibility qw(MyStr something);

ok MyStr->check('aaa'), "Correctly passed";
ok !MyStr->check([1]), "Correctly fails";
ok something(), "Found the something method";

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