t/000_load.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 42;
   7
   8 BEGIN {
   9     use_ok('Class::MOP');
  10     use_ok('Class::MOP::Package');
  11     use_ok('Class::MOP::Module');
  12     use_ok('Class::MOP::Class');
  13     use_ok('Class::MOP::Immutable');
  14     use_ok('Class::MOP::Attribute');
  15     use_ok('Class::MOP::Method');
  16     use_ok('Class::MOP::Method::Wrapped');
  17     use_ok('Class::MOP::Method::Generated');
  18     use_ok('Class::MOP::Method::Accessor');
  19     use_ok('Class::MOP::Method::Constructor');
  20     use_ok('Class::MOP::Instance');
  21     use_ok('Class::MOP::Object');
  22 }
  23
  24 # make sure we are tracking metaclasses correctly
  25
  26 my @CLASS_MOP_CLASS_IMMUTABLE_CLASSES
  27     = map { 'Class::MOP::Class::__ANON__::SERIAL::' . $_ } 1..11;
  28
  29 my %METAS = (
  30     'Class::MOP::Attribute'         => Class::MOP::Attribute->meta,
  31     'Class::MOP::Method::Generated' => Class::MOP::Method::Generated->meta,
  32     'Class::MOP::Method::Accessor'  => Class::MOP::Method::Accessor->meta,
  33     'Class::MOP::Method::Constructor' =>
  34         Class::MOP::Method::Constructor->meta,
  35     'Class::MOP::Package'         => Class::MOP::Package->meta,
  36     'Class::MOP::Module'          => Class::MOP::Module->meta,
  37     'Class::MOP::Class'           => Class::MOP::Class->meta,
  38     'Class::MOP::Method'          => Class::MOP::Method->meta,
  39     'Class::MOP::Method::Wrapped' => Class::MOP::Method::Wrapped->meta,
  40     'Class::MOP::Instance'        => Class::MOP::Instance->meta,
  41     'Class::MOP::Object'          => Class::MOP::Object->meta,
  42 );
  43
  44 ok( Class::MOP::is_class_loaded($_), '... ' . $_ . ' is loaded' )
  45     for keys %METAS;
  46
  47 ok( $_->is_immutable(), '... ' . $_->name . ' is immutable' )
  48     for values %METAS;
  49
  50 is_deeply(
  51     {Class::MOP::get_all_metaclasses},
  52     {
  53         %METAS,
  54         map { $_ => $_->meta } @CLASS_MOP_CLASS_IMMUTABLE_CLASSES
  55     },
  56     '... got all the metaclasses'
  57 );
  58
  59 is_deeply(
  60     [
  61         sort { $a->name cmp $b->name } Class::MOP::get_all_metaclass_instances
  62     ],
  63     [
  64         Class::MOP::Attribute->meta,
  65         Class::MOP::Class->meta,
  66         ( map { $_->meta } sort @CLASS_MOP_CLASS_IMMUTABLE_CLASSES ),
  67         Class::MOP::Instance->meta,
  68         Class::MOP::Method->meta,
  69         Class::MOP::Method::Accessor->meta,
  70         Class::MOP::Method::Constructor->meta,
  71         Class::MOP::Method::Generated->meta,
  72         Class::MOP::Method::Wrapped->meta,
  73         Class::MOP::Module->meta,
  74         Class::MOP::Object->meta,
  75         Class::MOP::Package->meta,
  76     ],
  77     '... got all the metaclass instances'
  78 );
  79
  80 is_deeply(
  81     [ sort { $a cmp $b } Class::MOP::get_all_metaclass_names() ],
  82     [
  83         sort qw/
  84             Class::MOP::Attribute
  85             Class::MOP::Class
  86             Class::MOP::Instance
  87             Class::MOP::Method
  88             Class::MOP::Method::Accessor
  89             Class::MOP::Method::Constructor
  90             Class::MOP::Method::Generated
  91             Class::MOP::Method::Wrapped
  92             Class::MOP::Module
  93             Class::MOP::Object
  94             Class::MOP::Package
  95             /, @CLASS_MOP_CLASS_IMMUTABLE_CLASSES
  96     ],
  97     '... got all the metaclass names'
  98 );
  99
 100 is_deeply(
 101     [
 102         map      { $_->meta->identifier }
 103             sort { $a cmp $b } Class::MOP::get_all_metaclass_names()
 104     ],
 105     [
 106         "Class::MOP::Attribute-"
 107             . $Class::MOP::Attribute::VERSION
 108             . "-cpan:STEVAN",
 109         "Class::MOP::Class-" . $Class::MOP::Class::VERSION . "-cpan:STEVAN",
 110         ( sort @CLASS_MOP_CLASS_IMMUTABLE_CLASSES ),
 111         "Class::MOP::Instance-"
 112             . $Class::MOP::Instance::VERSION
 113             . "-cpan:STEVAN",
 114         "Class::MOP::Method-" . $Class::MOP::Method::VERSION . "-cpan:STEVAN",
 115         "Class::MOP::Method::Accessor-"
 116             . $Class::MOP::Method::Accessor::VERSION
 117             . "-cpan:STEVAN",
 118         "Class::MOP::Method::Constructor-"
 119             . $Class::MOP::Method::Constructor::VERSION
 120             . "-cpan:STEVAN",
 121         "Class::MOP::Method::Generated-"
 122             . $Class::MOP::Method::Generated::VERSION
 123             . "-cpan:STEVAN",
 124         "Class::MOP::Method::Wrapped-"
 125             . $Class::MOP::Method::Wrapped::VERSION
 126             . "-cpan:STEVAN",
 127         "Class::MOP::Module-" . $Class::MOP::Module::VERSION . "-cpan:STEVAN",
 128         "Class::MOP::Object-" . $Class::MOP::Object::VERSION . "-cpan:STEVAN",
 129         "Class::MOP::Package-"
 130             . $Class::MOP::Package::VERSION
 131             . "-cpan:STEVAN",
 132     ],
 133     '... got all the metaclass identifiers'
 134 );
 135
 136 # testing the meta-circularity of the system
 137
 138 is(
 139     Class::MOP::Class->meta, Class::MOP::Class->meta->meta,
 140     '... Class::MOP::Class->meta == Class::MOP::Class->meta->meta'
 141 );
 142
 143 is(
 144     Class::MOP::Class->meta, Class::MOP::Class->meta->meta->meta,
 145     '... Class::MOP::Class->meta == Class::MOP::Class->meta->meta->meta'
 146 );
 147
 148 is(
 149     Class::MOP::Class->meta, Class::MOP::Class->meta->meta->meta->meta,
 150     '... Class::MOP::Class->meta == Class::MOP::Class->meta->meta->meta->meta'
 151 );
 152