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 };
  16
  17 ok(Mouse::load_class('Class'), "this should not die!");
  18
  19 TODO: {
  20     local $TODO = "can't have the previous test and this test pass.. yet";
  21     throws_ok {
  22         Mouse::load_class('FakeClassOhNo');
  23     } qr/Can't locate /;
  24 };
  25
  26 throws_ok {
  27     Mouse::load_class('Anti::MouseError');
  28 } qr/Missing right curly/;
  29