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); |
15 | ||
6974ed90 | 16 | ok MyStr->check('aaa'), "Correctly passed"; |
17 | ok !MyStr->check([1]), "Correctly fails"; | |
10390913 | 18 | ok something(), "Found the something method"; |