From: gfx <gfuji@cpan.org>
Date: Sat, 9 Jan 2010 07:45:36 +0000 (+0900)
Subject: Revert "Add a test file for RT #53286"
X-Git-Tag: 0.46~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=2984d37cdd94795e0676573b0a6e1dadb453c86a

Revert "Add a test file for RT #53286"

This reverts commit de821fdf6f06dcfa8f33708b3fab6e3794e18bb4.
---

diff --git a/t/900_bug/004_RT53286.t b/t/900_bug/004_RT53286.t
deleted file mode 100755
index b576f28..0000000
--- a/t/900_bug/004_RT53286.t
+++ /dev/null
@@ -1,66 +0,0 @@
-#!perl -w
-# reported by Christine Spang (RT #53286)
-package Foo;
-use Mouse;
-
-has app_handle => (
-    is       => 'rw',
-    isa      => 'Baz',
-    required => 1,
-);
-
-has handle => (
-    is       => 'rw',
-    isa      => 'Int',
-    # app_handle should not be undef here!
-    default  => sub { shift->app_handle->handle() },
-);
-
-no Mouse;
-
-1;
-
-package Bar;
-use Mouse;
-
-has app_handle => (
-    is       => 'rw',
-    isa      => 'Baz',
-    required => 1,
-);
-
-sub do_something {
-    my $self = shift;
-    my $foo = Foo->new( app_handle => $self->app_handle );
-    return $foo->handle;
-}
-
-no Mouse;
-
-1;
-
-package Baz;
-use Mouse;
-
-sub handle {
-    # print "This works correctly.\n";
-    return 1;
-}
-
-no Mouse;
-
-1;
-
-package main;
-use strict;
-use warnings;
-use Test::More tests => 2;
-use Test::Exception;
-
-my $bar = Bar->new( app_handle => Baz->new() );
-ok($bar, "Test class Bar instantiated w/attribute app_handle Baz");
-
-# Trigger the default sub of baz's handle attribute, which tries to call
-# a method on an attribute which was set to an object passed in via the
-# constructor.
-lives_and { is($bar->do_something(), 1, "attribute was passed in okay") };