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