X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F900_bug%2F004_RT54203.t;fp=t%2F900_bug%2F004_RT54203.t;h=0000000000000000000000000000000000000000;hb=a59572ace1bae78d6595316082ec9e6d1d80f8ac;hp=3ccab82cb2491cdb0e1c53be893829b5e869d571;hpb=6c7491f2df2cc362ae9d58ff3660f2286a22f878;p=gitmo%2FMouse.git

diff --git a/t/900_bug/004_RT54203.t b/t/900_bug/004_RT54203.t
deleted file mode 100644
index 3ccab82..0000000
--- a/t/900_bug/004_RT54203.t
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/env perl
-# originally mouse_bad.pl, reported by chocolateboy (RT #54203)
-
-use constant HAS_PATH_CLASS => eval{ require Path::Class };
-use Test::More HAS_PATH_CLASS ? (tests => 4) : (skip_all => 'Testing with Path::Class');
-
-package MyClass;
-
-use Mouse;
-use Path::Class qw(file);
-
-has path => (
-    is  => 'rw',
-    isa => 'Str',
-);
-
-sub BUILD {
-    my $self = shift;
-    my $path1 = file($0)->stringify;
-    ::ok(defined $path1, 'file($0)->stringify');
-
-    $self->path(file($0)->stringify);
-    my $path2 = $self->path();
-    ::ok(defined $path2, '$self->path(file($0)->stringify)');
-
-    my $path3 = $self->path(file($0)->stringify);
-    ::ok(defined $path3, 'my $path3 = $self->path(file($0)->stringify)');
-}
-
-package main;
-
-my $object = MyClass->new();
-ok defined($object->path);