[t/spec] Test for RT 69172

git-svn-id: http://svn.pugscode.org/pugs@28902 c213334d-75ef-0310-aa23-eaa082d1ae64

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