3 use Test::More tests => 28;
6 my @classes = qw(IO Array Hash Moose);
9 # Moose => "don't clobber superclass' meta's create_instance",
12 for my $c (@classes) {
13 my $base = "InsideOut::Base$c";
14 my $sub = "InsideOut::Sub$c";
15 eval "require $base;1" or die $@;
16 eval "require $sub;1" or die $@;
18 my $obj = eval { $sub->new(base_foo => 17) };
19 is($@, "", "$c: no errors creating object");
22 local $TODO = $TODO{$c} if exists $TODO{$c};
24 my $get = eval { $obj->base_foo };
25 is($@, "", "$c: no errors getting attribute");
26 is($get, 17, "$c: base_foo is 17");
32 is($@, "", "$c: no errors setting base class attribute");
33 is($set_base, 18, "$c: base_foo is 18");
40 is($@, "", "$c: no errors setting attribute");
41 is($set_sub, 23, "$c: sub_foo is 23");
43 # diag MooseX::InsideOut::Meta::Instance->__dump($obj);