X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F040_type_constraints%2Ffailing%2F035_duck_type_handles.t;fp=t%2F040_type_constraints%2Ffailing%2F035_duck_type_handles.t;h=0000000000000000000000000000000000000000;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=40fe4147d58d4959fbc0ca887ae904772d93707b;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git

diff --git a/t/040_type_constraints/failing/035_duck_type_handles.t b/t/040_type_constraints/failing/035_duck_type_handles.t
deleted file mode 100644
index 40fe414..0000000
--- a/t/040_type_constraints/failing/035_duck_type_handles.t
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-
-use Test::More tests => 2;
-use Test::Exception;
-
-my @phonograph;
-{
-    package Duck;
-    use Mouse;
-
-    sub walk {
-        push @phonograph, 'footsteps',
-    }
-
-    sub quack {
-        push @phonograph, 'quack';
-    }
-
-    package Swan;
-    use Mouse;
-
-    sub honk {
-        push @phonograph, 'honk';
-    }
-
-    package DucktypeTest;
-    use Mouse;
-    use Mouse::Util::TypeConstraints;
-
-    my $ducktype = duck_type 'DuckType' => qw(walk quack);
-
-    has duck => (
-        isa     => $ducktype,
-        handles => $ducktype,
-    );
-}
-
-my $t = DucktypeTest->new(duck => Duck->new);
-$t->quack;
-is_deeply([splice @phonograph], ['quack']);
-
-$t->walk;
-is_deeply([splice @phonograph], ['footsteps']);
-