X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fgrep.t;h=5f4e7a61732272a976b166ee70bbfd102d53bc41;hb=b3c0f1bde204be7b0c1795e8d30824df46a47ce0;hp=6e608132fcf20cdaa86eff50c1b3d32658328743;hpb=3dd03f9f2bff1ada569672f945edbef2c9fdf4b8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/grep.t b/t/op/grep.t
index 6e60813..5f4e7a6 100755
--- 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";
+}
+
+