Commit | Line | Data |
---|---|---|
d7f17ebb | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use lib 't/lib', 'lib'; | |
7 | ||
7ff56534 | 8 | use Test::More tests => 5; |
9 | ||
d7f17ebb | 10 | |
d7f17ebb | 11 | |
12 | { | |
13 | package Bar; | |
d7f17ebb | 14 | use Moose; |
d03bd989 | 15 | |
d7f17ebb | 16 | eval { extends 'Foo'; }; |
17 | ::ok(!$@, '... loaded Foo superclass correctly'); | |
18 | } | |
19 | ||
20 | { | |
21 | package Baz; | |
d7f17ebb | 22 | use Moose; |
d03bd989 | 23 | |
d7f17ebb | 24 | eval { extends 'Bar'; }; |
25 | ::ok(!$@, '... loaded (inline) Bar superclass correctly'); | |
26 | } | |
27 | ||
28 | { | |
29 | package Foo::Bar; | |
d7f17ebb | 30 | use Moose; |
d03bd989 | 31 | |
d7f17ebb | 32 | eval { extends 'Foo', 'Bar'; }; |
33 | ::ok(!$@, '... loaded Foo and (inline) Bar superclass correctly'); | |
34 | } | |
35 | ||
7eaef7ad | 36 | { |
37 | package Bling; | |
7eaef7ad | 38 | use Moose; |
d03bd989 | 39 | |
7eaef7ad | 40 | eval { extends 'No::Class'; }; |
d0901ccc | 41 | my $e = $@; |
42 | ::ok($e, '... could not find the superclass (as expected)'); | |
43 | ::like($e, qr{Can't locate No/Class\.pm in \@INC}, '... and got the error we expected'); | |
7eaef7ad | 44 | } |
45 |