t/083_load_class.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 19;
   5 use Test::Exception;
   6
   7 require Class::MOP;
   8 use lib 't/lib';
   9
  10 ok(!Class::MOP::is_class_loaded(), "is_class_loaded with no argument returns false");
  11 ok(!Class::MOP::is_class_loaded(''), "can't load the empty class");
  12 ok(!Class::MOP::is_class_loaded(\"foo"), "can't load a class name reference??");
  13
  14 ok(!Class::MOP::_is_valid_class_name(undef), 'undef is not a valid class name');
  15 ok(!Class::MOP::_is_valid_class_name(''), 'empty string is not a valid class name');
  16 ok(!Class::MOP::_is_valid_class_name(\"foo"), 'a reference is not a valid class name');
  17 ok(!Class::MOP::_is_valid_class_name('bogus name'), q{'bogus name' is not a valid class name});
  18 ok(Class::MOP::_is_valid_class_name('Foo'), q{'Foo' is a valid class name});
  19 ok(Class::MOP::_is_valid_class_name('Foo::Bar'), q{'Foo::Bar' is a valid class name});
  20 ok(Class::MOP::_is_valid_class_name('Foo_::Bar2'), q{'Foo_::Bar2' is a valid class name});
  21 throws_ok { Class::MOP::load_class('bogus name') } qr/Invalid class name \(bogus name\)/;
  22
  23 my $meta = Class::MOP::load_class('BinaryTree');
  24 ok($meta, "successfully loaded the class BinaryTree");
  25 is($meta->name, "BinaryTree", "load_class returns the metaclass");
  26 can_ok('BinaryTree' => 'traverse');
  27
  28 do {
  29     package Class;
  30     sub method {}
  31 };
  32
  33 ok(Class::MOP::load_class('Class'), "this should not die!");
  34
  35 throws_ok {
  36     Class::MOP::load_class('FakeClassOhNo');
  37 } qr/Can't locate /;
  38
  39 throws_ok {
  40     Class::MOP::load_class('SyntaxError');
  41 } qr/Missing right curly/;
  42
  43 {
  44     package Other;
  45     use constant foo => "bar";
  46 }
  47
  48 lives_ok {
  49     ok(Class::MOP::is_class_loaded("Other"), 'is_class_loaded(Other)');
  50 }
  51 "a class with just constants is still a class";