updating the test numbers and adding the CountingClass test
[gitmo/Class-MOP.git] / t / 001_basic.t
CommitLineData
8b978dd5 1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
1a7ebbb3 6use Test::More tests => 19;
0882828e 7use Test::Exception;
8b978dd5 8
9BEGIN {
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
bfe4d0fc 22my $Foo = Class::MOP::Class->initialize('Foo');
8b978dd5 23isa_ok($Foo, 'Class::MOP::Class');
24
bfe4d0fc 25my $Bar = Class::MOP::Class->initialize('Bar');
8b978dd5 26isa_ok($Bar, 'Class::MOP::Class');
27
28is($Foo->name, 'Foo', '... Foo->name == Foo');
29is($Bar->name, 'Bar', '... Bar->name == Bar');
30
31is($Foo->version, '0.01', '... Foo->version == 0.01');
32is($Bar->version, undef, '... Bar->version == undef');
33
34is_deeply([$Foo->superclasses], [], '... Foo has no superclasses');
35is_deeply([$Bar->superclasses], ['Foo'], '... Bar->superclasses == (Foo)');
36
37$Foo->superclasses('UNIVERSAL');
38
39is_deeply([$Foo->superclasses], ['UNIVERSAL'], '... Foo->superclasses == (UNIVERSAL) now');
40
41is_deeply(
42 [ $Foo->class_precedence_list ],
43 [ 'Foo', 'UNIVERSAL' ],
44 '... Foo->class_precedence_list == (Foo, UNIVERSAL)');
45
46is_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
53my $Baz = Class::MOP::Class->create(
54 'Baz' => '0.10' => (
55 superclasses => [ 'Bar' ]
56 ));
57isa_ok($Baz, 'Class::MOP::Class');
bfe4d0fc 58is(Class::MOP::Class->initialize('Baz'), $Baz, '... our metaclasses are singletons');
8b978dd5 59
60is($Baz->name, 'Baz', '... Baz->name == Baz');
61is($Baz->version, '0.10', '... Baz->version == 0.10');
62
63is_deeply([$Baz->superclasses], ['Bar'], '... Baz->superclasses == (Bar)');
64
65is_deeply(
66 [ $Baz->class_precedence_list ],
67 [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ],
68 '... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL)');