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 | ||
a344ca96 | 8 | use Test::Requires { 'Sub::Exporter' => '0' }; |
6974ed90 | 9 | } |
10 | ||
077ac262 | 11 | use SubExporterCompatibility qw(MyStr something); |
12 | ||
6974ed90 | 13 | ok MyStr->check('aaa'), "Correctly passed"; |
14 | ok !MyStr->check([1]), "Correctly fails"; | |
10390913 | 15 | ok something(), "Found the something method"; |
a344ca96 | 16 | |
17 | done_testing; |