t/cmop/anon_packages.t


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

use strict;
use warnings;
use Test::More;
use Test::Fatal;

use Class::MOP;

{
    my $name;
    {
        my $anon = Class::MOP::Package->create_anon;
        $name = $anon->name;
        $anon->add_package_symbol('&foo' => sub {});
        can_ok($name, 'foo');
        ok($anon->is_anon, "is anon");
    }

    ok(!$name->can('foo'), "!$name->can('foo')");
}

{
    my $name;
    {
        my $anon = Class::MOP::Package->create_anon(weaken => 0);
        $name = $anon->name;
        $anon->add_package_symbol('&foo' => sub {});
        can_ok($name, 'foo');
        ok($anon->is_anon, "is anon");
    }

    can_ok($name, 'foo');
}

{
    like(exception { Class::MOP::Package->create_anon(cache => 1) },
         qr/^Packages are not cacheable/,
         "can't cache anon packages");
}

done_testing;