Commit | Line | Data |
700071de |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings FATAL => 'all'; |
5 | use Dir::Self; |
6 | use lib __DIR__ . '/lib'; |
7 | |
8 | use Test::More |
9 | eval { require Moose; 1 } |
10 | ? (tests => 2) |
11 | : (skip_all => "Moose required for testing types") |
12 | ; |
13 | |
14 | |
15 | require MooseLoadTest; |
16 | |
17 | my $foobar = Foo::Bar->new; |
18 | |
19 | # can't check for type module not being loaded here, because Moose will drag it in |
20 | |
21 | |
22 | $foobar->check_int(42); |
23 | |
24 | # now we should have loaded Moose, not Mouse, to do our type checking |
25 | |
26 | is $INC{'Mouse/Util/TypeConstraints.pm'}, undef, "didn't load Mouse"; |
27 | like $INC{'Moose/Util/TypeConstraints.pm'}, qr{Moose/Util/TypeConstraints\.pm$}, 'loaded Moose'; |