t/01-basic.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin;
   5 use lib "$FindBin::Bin/lib";
   6
   7 use Test::More;
   8 use Test::Exception;
   9
  10 plan tests => 3;
  11
  12 use_ok('MyModule');
  13
  14 MyModule->load_components('Foo');
  15
  16 throws_ok { MyModule->load_components('+Foo'); } qr/^Can't locate Foo.pm in \@INC/;
  17
  18 is(MyModule->new->message, "Foo MyModule", "it worked");
  19