File: 005-aliases-moose.t

package info (click to toggle)
libany-moose-perl 0.27-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, stretch
  • size: 356 kB
  • ctags: 13
  • sloc: perl: 401; makefile: 2
file content (50 lines) | stat: -rw-r--r-- 2,104 bytes parent folder | download | duplicates (2)
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
42
43
44
45
46
47
48
49
50
use strict;
use warnings;
use Test::More;

BEGIN { delete $ENV{ANY_MOOSE} }

BEGIN {
    eval 'use Moose ()';
    plan skip_all => "Moose unavailable: $@" if $@;
    plan tests => 21;
}

package MyClass;
no warnings 'deprecated';
use Any::Moose;

package main;

ok(Any::Moose::is_class_loaded('Moose'), 'Moose is loaded');
ok(Any::Moose::is_class_loaded('MyClass'), 'MyClass is loaded');
ok(!Any::Moose::is_class_loaded('NonexistentPackage'), 'NonexistentPackage is not loaded');

push @INC, 't/lib';

ok(!Any::Moose::is_class_loaded('AnyMooseTest'), 'AnyMooseTest not yet loaded');
ok(Any::Moose::load_class('AnyMooseTest'), 'Loading AnyMooseTest');
ok(Any::Moose::is_class_loaded('AnyMooseTest'), 'AnyMooseTest now loaded');

is(eval { Any::Moose::load_class('NonexistentTest'); 1 }, undef, 'load_class on nonexistent module fails');
ok(!Any::Moose::is_class_loaded('NonexistentTest'), 'and it is still not loaded');

like(Any::Moose::class_of('MyClass'), qr/Moose::Meta::Class=HASH/, 'metaclass check');
is(Any::Moose::class_of('NonexistentTest'), undef, 'class_of nonexistent class is undef');
like(Any::Moose::class_of(MyClass->new), qr/Moose::Meta::Class=HASH/, 'metaclass check via object');

like(Any::Moose::get_metaclass_by_name('MyClass'), qr/Moose::Meta::Class=HASH/, 'metaclass check');
is(Any::Moose::get_metaclass_by_name('NonexistentTest'), undef, 'class_of nonexistent class is undef');
is(Any::Moose::get_metaclass_by_name(MyClass->new), undef, 'get_metaclass_by_name via object returns undef');

my %metaclasses = map { $_->name => $_ } Any::Moose::get_all_metaclass_instances();
is($metaclasses{MyClass}, MyClass->meta);
is($metaclasses{AnyMooseTest}, AnyMooseTest->meta);
is($metaclasses{NonexistentTest}, undef);

is((grep { $_ eq 'MyClass' } Any::Moose::get_all_metaclass_names()), 1);
is((grep { $_ eq 'AnyMooseTest' } Any::Moose::get_all_metaclass_names()), 1);
is((grep { $_ eq 'NonexistentTest' } Any::Moose::get_all_metaclass_names()), 0);

my $c = Any::Moose::load_first_existing_class('Any::Moose::No::Such::Module', 'strict');
is $c, 'strict', 'load_first_existing_class';