Re: [PATCH] honoring void context for map(), return from sub end test

[p5sagit/p5-mst-13.2.git] / t / op / grep.t

diff --git a/t/op/grep.t b/t/op/grep.t
index 6e60813..5f4e7a6 100755 (executable)
--- a/t/op/grep.t
+++ b/t/op/grep.t
@@ -135,3 +135,11 @@ sub ok {
     $test++;
 }
 
+{
+    sub add_an_x(@){
+        map {"${_}x"} @_;
+    };
+    ok join("-",add_an_x(1,2,3,4)), "1x-2x-3x-4x";
+}
+
+