projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
43986f1054702c693b60a1e332b91e1835404d3f
[gitmo/Mouse.git]
/
t
/
100_bugs
/
004_subclass_use_base_bug.t
1
#!/usr/bin/perl
2
# This is automatically generated by author/import-moose-test.pl.
3
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4
use t::lib::MooseCompat;
5
6
use strict;
7
use warnings;
8
9
use Test::More;
10
11
=pod
12
13
This just makes sure that the Bar gets
14
a metaclass initialized for it correctly.
15
16
=cut
17
18
{
19
package Foo;
20
use Mouse;
21
22
package Bar;
23
use strict;
24
use warnings;
25
26
use base 'Foo';
27
}
28
29
my $bar = Bar->new;
30
isa_ok($bar, 'Bar');
31
isa_ok($bar, 'Foo');
32
33
done_testing;