Support curry::_ and curry::weak::_

[p5sagit/curry.git] / t / curry.t

diff --git a/t/curry.t b/t/curry.t
index d643f88..88e093e 100644 (file)
--- a/t/curry.t
+++ b/t/curry.t
@@ -16,6 +16,10 @@ my $foo = Foo->new;
 
 is_deeply($foo->foo(1), [ $foo, 1 ], 'Direct object call');
 is_deeply($foo->curry::foo->(1), [ $foo, 1 ], 'Curried object call');
+is_deeply(
+  $foo->curry::_('foo')->(1), [ $foo, 1 ],
+  'Curried string method call'
+);
 
 weaken(my $weak_foo = $foo);
 
@@ -35,6 +39,10 @@ $curry = $foo->curry::weak::foo;
 
 is_deeply($curry->(1), [ $foo, 1 ], 'Curried weak object call');
 
+my $curry2 = $foo->curry::weak::_('foo');
+
+is_deeply($curry->(1), [ $foo, 1 ], 'Curried weak string method call');
+
 weaken($weak_foo = $foo);
 
 undef($foo);