X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F008-create_class.t;h=1566d900083422dad4f6c094f18d146714737b13;hb=2608b11522c42ce940bcc72743cdee5bb9d0c120;hp=99143f3bfe19203aea99e0764a1c124704087728;hpb=b6a2be43c0e055edf7f5a6fc21d98d6be79b13e6;p=gitmo%2FMouse.git diff --git a/t/800_shikabased/008-create_class.t b/t/800_shikabased/008-create_class.t index 99143f3..1566d90 100644 --- a/t/800_shikabased/008-create_class.t +++ b/t/800_shikabased/008-create_class.t @@ -7,6 +7,7 @@ use Test::Exception; # error handling throws_ok { Mouse::Meta::Class->create( + "ClassName", superclasses => "foo" ); } qr/You must pass an ARRAY ref of superclasses/; @@ -14,12 +15,14 @@ throws_ok { throws_ok { Mouse::Meta::Class->create( + "ClassName", attributes => "foo" ); } qr/You must pass an ARRAY ref of attributes/; throws_ok { Mouse::Meta::Class->create( + "ClassName", methods => "foo" ); } qr/You must pass a HASH ref of methods/; @@ -39,7 +42,10 @@ isa_ok( superclasses => [ "FooBar", "Mouse::Object" ], attributes => [ Mouse::Meta::Attribute->new( - name => "foo", is => "rw", default => "yay" + "foo" => ( + is => "rw", + default => "yay", + ), ) ], methods => {