File: 071_immutable_w_custom_metaclass.t

package info (click to toggle)
libclass-mop-perl 0.36-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 552 kB
  • ctags: 209
  • sloc: perl: 6,157; makefile: 46
file content (41 lines) | stat: -rw-r--r-- 580 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use Test::Exception;

BEGIN {
    use_ok('Class::MOP');
}

{
    package Meta::Baz;
    use strict;
    use warnings;
    use base 'Class::MOP::Class';
}

{
    package Bar;
    
    use strict;
    use warnings;
    use metaclass;           
    
    __PACKAGE__->meta->make_immutable;
    
    package Baz;
    
    use strict;
    use warnings;
    use metaclass 'Meta::Baz';    

    ::lives_ok {
        Baz->meta->superclasses('Bar');    
    } '... we survive the metaclass incompatability test';
}