10 This tests a bug sent via RT #27329
18 Foo->meta->add_attribute('foo' => (
26 my $foo = Foo->meta->new_object;
29 is($foo->get_foo, 'BAR', '... got the right default value');
32 my $clone = $foo->meta->clone_object($foo, foo => 'BAZ');
33 isa_ok($clone, 'Foo');
34 isnt($clone, $foo, '... and it is a clone');
36 is($clone->get_foo, 'BAZ', '... got the right cloned value');
40 my $clone = $foo->meta->clone_object($foo, foo => undef);
41 isa_ok($clone, 'Foo');
42 isnt($clone, $foo, '... and it is a clone');
44 ok(!defined($clone->get_foo), '... got the right cloned value');