Cleanup failing tests

[gitmo/Mouse.git] / t / 040_type_constraints / failing / 035_duck_type_handles.t

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 (file)
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']);
-