From 72c5e19a12da8136e2b4990132c8c6414c173b52 Mon Sep 17 00:00:00 2001
From: kyle <kyle@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon, 26 Oct 2009 18:00:42 +0000
Subject: [PATCH] [t/spec] Test for RT 69172

git-svn-id: http://svn.pugscode.org/pugs@28902 c213334d-75ef-0310-aa23-eaa082d1ae64
---
 S03-operators/arith.t | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/S03-operators/arith.t b/S03-operators/arith.t
index 600646e2ee..5a8d127f1e 100644
--- a/S03-operators/arith.t
+++ b/S03-operators/arith.t
@@ -1,8 +1,6 @@
 use v6;
-
 use Test;
-
-plan 192;
+plan *;
 
 my $five = abs(-5);
 
@@ -421,6 +419,12 @@ dies_ok( { $x := 0; say 3 div $x; }, 'Division by zero dies and is catchable wit
 {
     is 6 !% 3, Bool::True,  '6 !% 3';
     is 6 !% 4, Bool::False, '6 !% 4';
+
+    is (1..10).grep({ $_ !% 3 }), <3 6 9>, '!% works with explicit closure';
+    #?rakudo todo 'RT 69172'
+    is (1..10).grep( * !% 3 ), <3 6 9>, '!% works with whatever *'
 }
 
+done_testing;
+
 # vim: ft=perl6