diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-05-27 22:19:29 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-05-27 22:19:29 -0500 |
commit | 2b735d5acb55cd8925a10566263a11dd8f32604e (patch) | |
tree | f36911e97153c8f1fe2592b2e2504cea2e383cfe /t/001-basic.t | |
parent | 92c92c6fc6a6de96eee2eab29423c09a7242ce54 (diff) | |
download | moosex-mangle-2b735d5acb55cd8925a10566263a11dd8f32604e.tar.gz moosex-mangle-2b735d5acb55cd8925a10566263a11dd8f32604e.zip |
make the basic test just be the synopsis test
Diffstat (limited to 't/001-basic.t')
-rw-r--r-- | t/001-basic.t | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/t/001-basic.t b/t/001-basic.t deleted file mode 100644 index 89bde54..0000000 --- a/t/001-basic.t +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More tests => 4; - -package Foo; -use Moose; - -sub foo { "FOO" } -sub bar { shift; join '-', @_ } - -package Foo::Sub; -use Moose; -use MooseX::Mangle; -extends 'Foo'; - -mangle_return foo => sub { - my $self = shift; - my ($foo) = @_; - return lc($foo) . 'BAR'; -}; - -mangle_args bar => sub { - my $self = shift; - my ($a, $b, $c) = @_; - return ($b, $c, $a); -}; - -package main; -my $foo = Foo->new; -my $foosub = Foo::Sub->new; -is($foo->foo, 'FOO', 'unmodified method foo'); -is($foo->bar('a', 'b', 'c'), 'a-b-c', 'unmodified method bar'); -is($foosub->foo, 'fooBAR', "foo's return is mangled"); -is($foosub->bar('a', 'b', 'c'), 'b-c-a', "bar's args are mangled"); |