X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F031-clone.t;h=be9cfa17d1776df2b4e9faa9db97732815a64318;hb=92989046ccc2d4519620a1c03b721d611fd123d2;hp=fd2a3bf3aca67db077ba56bc71a09336ec31b034;hpb=8c831d08b0d23c9dfcc4a85f6444915c988b5538;p=gitmo%2FMouse.git diff --git a/t/031-clone.t b/t/031-clone.t index fd2a3bf..be9cfa1 100644 --- a/t/031-clone.t +++ b/t/031-clone.t @@ -1,8 +1,8 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 10; -use Mouse::Util ':test'; +use Test::More tests => 9; +use Test::Exception; do { package Foo; @@ -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/;