X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F22_class_type.t;h=091eba0f83ca12db91e42d090e079fa84c11e690;hb=195d6241459e1d7786e10fb396d4b277c1929bb2;hp=2fdf5608add93707c6961a5126333450d8edd7a0;hpb=b2a6a381bc32367be60f79761351f2308025cb9a;p=gitmo%2FMooseX-Types.git diff --git a/t/22_class_type.t b/t/22_class_type.t index 2fdf560..091eba0 100644 --- a/t/22_class_type.t +++ b/t/22_class_type.t @@ -31,4 +31,6 @@ ok(my $o = ClassyClassConsumer->new, "Constructor happy"); is(ref($o->om_nom), 'ClassyClass', 'Attribute happy'); +ok(ClassyClassConsumer->new(om_nom => ClassyClass->new), 'Constructor happy'); + done_testing;