t/001_basic.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 25;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     use_ok('Class::MOP');
  11     use_ok('Class::MOP::Class');
  12 }
  13
  14 {
  15     package Foo;
  16     use metaclass;
  17     our $VERSION = '0.01';
  18
  19     package Bar;
  20     our @ISA = ('Foo');
  21
  22     our $AUTHORITY = 'cpan:JRANDOM';
  23 }
  24
  25 my $Foo = Foo->meta;
  26 isa_ok($Foo, 'Class::MOP::Class');
  27
  28 my $Bar = Bar->meta;
  29 isa_ok($Bar, 'Class::MOP::Class');
  30
  31 is($Foo->name, 'Foo', '... Foo->name == Foo');
  32 is($Bar->name, 'Bar', '... Bar->name == Bar');
  33
  34 is($Foo->version, '0.01', '... Foo->version == 0.01');
  35 is($Bar->version, undef, '... Bar->version == undef');
  36
  37 is($Foo->authority, undef, '... Foo->authority == undef');
  38 is($Bar->authority, 'cpan:JRANDOM', '... Bar->authority == cpan:JRANDOM');
  39
  40 is($Foo->identifier, 'Foo-0.01', '... Foo->identifier == Foo-0.01');
  41 is($Bar->identifier, 'Bar-cpan:JRANDOM', '... Bar->identifier == Bar-cpan:JRANDOM');
  42
  43 is_deeply([$Foo->superclasses], [], '... Foo has no superclasses');
  44 is_deeply([$Bar->superclasses], ['Foo'], '... Bar->superclasses == (Foo)');
  45
  46 $Foo->superclasses('UNIVERSAL');
  47
  48 is_deeply([$Foo->superclasses], ['UNIVERSAL'], '... Foo->superclasses == (UNIVERSAL) now');
  49
  50 is_deeply(
  51     [ $Foo->class_precedence_list ],
  52     [ 'Foo', 'UNIVERSAL' ],
  53     '... Foo->class_precedence_list == (Foo, UNIVERSAL)');
  54
  55 is_deeply(
  56     [ $Bar->class_precedence_list ],
  57     [ 'Bar', 'Foo', 'UNIVERSAL' ],
  58     '... Bar->class_precedence_list == (Bar, Foo, UNIVERSAL)');
  59
  60 # create a class using Class::MOP::Class ...
  61
  62 my $Baz = Class::MOP::Class->create(
  63             'Baz' => (
  64                 version      => '0.10',
  65                 authority    => 'cpan:YOMAMA',
  66                 superclasses => [ 'Bar' ]
  67             ));
  68 isa_ok($Baz, 'Class::MOP::Class');
  69 is(Baz->meta, $Baz, '... our metaclasses are singletons');
  70
  71 is($Baz->name, 'Baz', '... Baz->name == Baz');
  72 is($Baz->version, '0.10', '... Baz->version == 0.10');
  73 is($Baz->authority, 'cpan:YOMAMA', '... Baz->authority == YOMAMA');
  74
  75 is($Baz->identifier, 'Baz-0.10-cpan:YOMAMA', '... Baz->identifier == Baz-0.10-cpan:YOMAMA');
  76
  77 is_deeply([$Baz->superclasses], ['Bar'], '... Baz->superclasses == (Bar)');
  78
  79 is_deeply(
  80     [ $Baz->class_precedence_list ],
  81     [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ],
  82     '... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL)');
  83