t/020-load-class.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 5;
   5 use Test::Exception;
   6
   7 require Mouse;
   8 use lib 't/lib';
   9
  10 ok(Mouse::load_class('Anti::Mouse'));
  11 can_ok('Anti::Mouse' => 'antimouse');
  12
  13 do {
  14     package Class;
  15     sub yay {}
  16 };
  17
  18 ok(Mouse::load_class('Class'), "this should not die!");
  19
  20 throws_ok {
  21     Mouse::load_class('FakeClassOhNo');
  22 } qr/Can't locate /;
  23
  24 throws_ok {
  25     Mouse::load_class('Anti::MouseError');
  26 } qr/Missing right curly/;
  27