6 use Test::More tests => 3;
15 This tests to make sure that the inlined constructor
16 has all the type constraints in order, even in the
17 cases when there is no type constraint available, such
18 as with a Class::MOP::Attribute object.
26 has 'foo' => (is => 'rw', isa => 'Int');
27 has 'baz' => (is => 'rw', isa => 'Int');
29 Foo->meta->add_attribute(
30 Class::MOP::Attribute->new(
37 Foo->meta->make_immutable(debug => 0);
41 Foo->new(foo => 10, bar => "Hello World", baz => 10);
42 } '... this passes the constuctor correctly';
45 Foo->new(foo => "Hello World", bar => 100, baz => "Hello World");
46 } '... this fails the constuctor correctly';