X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F020_attributes%2F032_delegation_arg_aliasing.t;fp=t%2F020_attributes%2F032_delegation_arg_aliasing.t;h=0000000000000000000000000000000000000000;hp=084c2ba95256c0c6ee4c499075846d37268e0c3d;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hpb=8845df4dd6432e3164d078ade741409061adae9f

diff --git a/t/020_attributes/032_delegation_arg_aliasing.t b/t/020_attributes/032_delegation_arg_aliasing.t
deleted file mode 100644
index 084c2ba..0000000
--- a/t/020_attributes/032_delegation_arg_aliasing.t
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/env perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
-use strict;
-use warnings;
-use Test::More;
-
-{
-    package Foo;
-    use Mouse;
-
-    sub aliased {
-        my $self = shift;
-        $_[1] = $_[0];
-    }
-}
-
-{
-    package HasFoo;
-    use Mouse;
-
-    has foo => (
-        is  => 'ro',
-        isa => 'Foo',
-        handles => {
-            foo_aliased => 'aliased',
-            foo_aliased_curried => ['aliased', 'bar'],
-        }
-    );
-}
-
-my $hasfoo = HasFoo->new(foo => Foo->new);
-my $x;
-$hasfoo->foo->aliased('foo', $x);
-is($x, 'foo', "direct aliasing works");
-undef $x;
-$hasfoo->foo_aliased('foo', $x);
-is($x, 'foo', "delegated aliasing works");
-undef $x;
-$hasfoo->foo_aliased_curried($x);
-is($x, 'bar', "delegated aliasing with currying works");
-
-done_testing;