t/001_basic.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More no_plan => 1;
   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     our $VERSION = '0.01';
  17
  18     package Bar;
  19     our @ISA = ('Foo');
  20 }
  21
  22 my $Foo = Foo->meta();
  23 isa_ok($Foo, 'Class::MOP::Class');
  24
  25 my $Bar = Bar->meta();
  26 isa_ok($Bar, 'Class::MOP::Class');
  27
  28 is($Foo->name, 'Foo', '... Foo->name == Foo');
  29 is($Bar->name, 'Bar', '... Bar->name == Bar');
  30
  31 is($Foo->version, '0.01', '... Foo->version == 0.01');
  32 is($Bar->version, undef, '... Bar->version == undef');
  33
  34 is_deeply([$Foo->superclasses], [], '... Foo has no superclasses');
  35 is_deeply([$Bar->superclasses], ['Foo'], '... Bar->superclasses == (Foo)');
  36
  37 $Foo->superclasses('UNIVERSAL');
  38
  39 is_deeply([$Foo->superclasses], ['UNIVERSAL'], '... Foo->superclasses == (UNIVERSAL) now');
  40
  41 is_deeply(
  42     [ $Foo->class_precedence_list ],
  43     [ 'Foo', 'UNIVERSAL' ],
  44     '... Foo->class_precedence_list == (Foo, UNIVERSAL)');
  45
  46 is_deeply(
  47     [ $Bar->class_precedence_list ],
  48     [ 'Bar', 'Foo', 'UNIVERSAL' ],
  49     '... Bar->class_precedence_list == (Bar, Foo, UNIVERSAL)');
  50
  51 # create a class using Class::MOP::Class ...
  52
  53 my $Baz = Class::MOP::Class->create(
  54             'Baz' => '0.10' => (
  55                 superclasses => [ 'Bar' ]
  56             ));
  57 isa_ok($Baz, 'Class::MOP::Class');
  58 is(Baz->meta, $Baz, '... our metaclasses are singletons');
  59
  60 is($Baz->name, 'Baz', '... Baz->name == Baz');
  61 is($Baz->version, '0.10', '... Baz->version == 0.10');
  62
  63 is_deeply([$Baz->superclasses], ['Bar'], '... Baz->superclasses == (Bar)');
  64
  65 is_deeply(
  66     [ $Baz->class_precedence_list ],
  67     [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ],
  68     '... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL)');