X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F031-clone.t;h=be9cfa17d1776df2b4e9faa9db97732815a64318;hb=90fe520e5db8715b510a2ca3bef0847c4503e037;hp=9d7454fd26bc81bd917c68733b6b4c2f1880e4d0;hpb=e42bee44a43a31f5271f0e4aa1b670dc41775160;p=gitmo%2FMouse.git diff --git a/t/031-clone.t b/t/031-clone.t index 9d7454f..be9cfa1 100644 --- a/t/031-clone.t +++ b/t/031-clone.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 10; +use Test::More tests => 9; use Test::Exception; do { @@ -57,7 +57,4 @@ throws_ok { Foo->meta->clone_object(Foo->meta) } qr/You must pass an instance of the metaclass \(Foo\), not \(Mo.se::Meta::Class=HASH\(\w+\)\)/; -throws_ok { - Foo->meta->clone_instance("constant") -} qr/You can only clone instances, \(constant\) is not a blessed instance/;