t/14_compatibility-sub-exporter.t

   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