removed test: using return in Sub::Quote considered unfortunate
Matt S Trout [Tue, 8 May 2012 17:21:31 +0000 (17:21 +0000)]
xt/moo-coercion-construction-bug.t [deleted file]

diff --git a/xt/moo-coercion-construction-bug.t b/xt/moo-coercion-construction-bug.t
deleted file mode 100644 (file)
index 47b8b94..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-
-{
-    package MyTest::Role;
-    use Moo::Role;
-    use Sub::Quote;
-
-    has test_attr => (
-        isa => quote_sub(q{ die $_[0] . "not an object" unless Scalar::Util::blessed($_[0]) }),
-        coerce => quote_sub(q{
-            return $_[0] if Scalar::Util::blessed($_[0]);
-            die;
-        }),
-        is => 'ro',
-        required => 1,
-    );
-}
-
-{
-    package MyTest::ClassOne;
-    use Moo;
-
-    with 'MyTest::Role';
-
-}
-{
-    package MyTest::ClassTwo;
-    use Moo;
-
-    with 'MyTest::Role';
-}
-
-my $t = MyTest::ClassOne->new(test_attr => bless {}, 'Bar');
-my $n = MyTest::ClassTwo->new( test_attr => $t);
-is ref($n), 'MyTest::ClassTwo';
-
-done_testing;
-