Resolve some tests

[gitmo/Mouse.git] / t / 040_type_constraints / failing / 025_type_coersion_on_lazy_attributes.t

diff --git a/t/040_type_constraints/failing/025_type_coersion_on_lazy_attributes.t b/t/040_type_constraints/failing/025_type_coersion_on_lazy_attributes.t
deleted file mode 100644 (file)
index 745a4ce..0000000
--- a/t/040_type_constraints/failing/025_type_coersion_on_lazy_attributes.t
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 2;
-
-{
-    package SomeClass;
-    use Mouse;
-    use Mouse::Util::TypeConstraints;
-
-    subtype 'DigitSix' => as 'Num'
-        => where { /^6$/ };
-    subtype 'TextSix' => as 'Str'
-        => where { /Six/i };
-    coerce 'TextSix'
-        => from 'DigitSix'
-        => via { confess("Cannot live without 6 ($_)") unless /^6$/; 'Six' };
-
-    has foo => (
-        is      => 'ro',
-        isa     => 'TextSix',
-        coerce  => 1,
-        default => 6,
-        lazy    => 1
-    );
-}
-
-my $attr = SomeClass->meta->get_attribute('foo');
-is($attr->get_value(SomeClass->new()), 'Six');
-is(SomeClass->new()->foo, 'Six');
-