X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F040_type_constraints%2Ffailing%2F005_util_type_coercion.t;fp=t%2F040_type_constraints%2Ffailing%2F005_util_type_coercion.t;h=0000000000000000000000000000000000000000;hb=b910be93608c1bd94abc22dbaea7c487b16e9993;hp=8b5a77ae9e326aaeb2ed317aefb35a0276aacc04;hpb=b2b106d765ef1bcbb5ea3b215668baea1a9504b6;p=gitmo%2FMouse.git

diff --git a/t/040_type_constraints/failing/005_util_type_coercion.t b/t/040_type_constraints/failing/005_util_type_coercion.t
deleted file mode 100644
index 8b5a77a..0000000
--- a/t/040_type_constraints/failing/005_util_type_coercion.t
+++ /dev/null
@@ -1,102 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 26;
-use Test::Exception;
-
-BEGIN {
-	use_ok('Mouse::Util::TypeConstraints');
-}
-
-{
-    package HTTPHeader;
-    use Mouse;
-
-    has 'array' => (is => 'ro');
-    has 'hash'  => (is => 'ro');
-}
-
-subtype Header =>
-    => as Object
-    => where { $_->isa('HTTPHeader') };
-
-coerce Header
-    => from ArrayRef
-        => via { HTTPHeader->new(array => $_[0]) }
-    => from HashRef
-        => via { HTTPHeader->new(hash => $_[0]) };
-
-
-Mouse::Util::TypeConstraints->export_type_constraints_as_functions();
-
-my $header = HTTPHeader->new();
-isa_ok($header, 'HTTPHeader');
-
-ok(Header($header), '... this passed the type test');
-ok(!Header([]), '... this did not pass the type test');
-ok(!Header({}), '... this did not pass the type test');
-
-my $anon_type = subtype Object => where { $_->isa('HTTPHeader') };
-
-lives_ok {
-    coerce $anon_type
-        => from ArrayRef
-            => via { HTTPHeader->new(array => $_[0]) }
-        => from HashRef
-            => via { HTTPHeader->new(hash => $_[0]) };
-} 'coercion of anonymous subtype succeeds';
-
-foreach my $coercion (
-    find_type_constraint('Header')->coercion,
-    $anon_type->coercion
-    ) {
-
-    isa_ok($coercion, 'Mouse::Meta::TypeCoercion');
-
-    {
-        my $coerced = $coercion->coerce([ 1, 2, 3 ]);
-        isa_ok($coerced, 'HTTPHeader');
-
-        is_deeply(
-            $coerced->array(),
-            [ 1, 2, 3 ],
-            '... got the right array');
-        is($coerced->hash(), undef, '... nothing assigned to the hash');
-    }
-
-    {
-        my $coerced = $coercion->coerce({ one => 1, two => 2, three => 3 });
-        isa_ok($coerced, 'HTTPHeader');
-
-        is_deeply(
-            $coerced->hash(),
-            { one => 1, two => 2, three => 3 },
-            '... got the right hash');
-        is($coerced->array(), undef, '... nothing assigned to the array');
-    }
-
-    {
-        my $scalar_ref = \(my $var);
-        my $coerced = $coercion->coerce($scalar_ref);
-        is($coerced, $scalar_ref, '... got back what we put in');
-    }
-
-    {
-        my $coerced = $coercion->coerce("Foo");
-        is($coerced, "Foo", '... got back what we put in');
-    }
-}
-
-subtype 'StrWithTrailingX'
-    => as 'Str'
-    => where { /X$/ };
-
-coerce 'StrWithTrailingX'
-    => from 'Str'
-    => via { $_ . 'X' };
-
-my $tc = find_type_constraint('StrWithTrailingX');
-is($tc->coerce("foo"), "fooX", "coerce when needed");
-is($tc->coerce("fooX"), "fooX", "do not coerce when unneeded");