Rename a test directry name to be clear
[gitmo/Mouse.git] / t / 900_bug / 003_RT50421.t
diff --git a/t/900_bug/003_RT50421.t b/t/900_bug/003_RT50421.t
deleted file mode 100644 (file)
index 8950508..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl -w
-use Test;
-
-plan tests => 3;
-
-{
-    package Class;
-    sub new {}
-}
-
-{
-    package MouseClass;
-    use Mouse;
-}
-
-
-{
-    package Foo;
-
-    use Mouse;
-
-    has unknown => (
-        is  => 'rw',
-        isa => 'HashRef[Unknown]'
-    );
-
-    has class   => (
-        is      => 'rw',
-        isa     => 'HashRef[Class]',
-    );
-
-    has mouse   => (
-        is      => 'rw',
-        isa     => 'HashRef[MouseClass]',
-    );
-}
-
-
-my $obj = Foo->new;
-ok eval { $obj->unknown({}); };
-ok eval { $obj->class({}); };
-ok eval { $obj->mouse({}); };