t/14_compatibility-sub-exporter.t

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