From 79e9f56c6fe4a7eb8d6763c297fe3c1fb6190e5f Mon Sep 17 00:00:00 2001 From: Fernando Correa Date: Wed, 15 Mar 2017 14:11:14 -0300 Subject: [PATCH 1/2] Fix test for #130998 --- integration/weird-errors.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/integration/weird-errors.t b/integration/weird-errors.t index 8565487571..627db27918 100644 --- a/integration/weird-errors.t +++ b/integration/weird-errors.t @@ -245,5 +245,5 @@ subtest 'using a null string to access a hash does not segfault' => { } # RT #128985 -is (^1000 .grep: -> $n {([+] ^$n .grep: -> $m {$m and $n %% $m}) == $n }), (0,), +is (^1000 .grep: -> $n {([+] ^$n .grep: -> $m {$m and $n %% $m}) == $n }), (0, 6, 28, 496), 'No SEGV/crash on reduction in grep using %%'; From 156f15d686488972e55d81e28c832ad44e01d5b2 Mon Sep 17 00:00:00 2001 From: Fernando Correa Date: Wed, 15 Mar 2017 19:36:24 -0300 Subject: [PATCH 2/2] Add test for #130998 --- S13-overloading/metaoperators.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/S13-overloading/metaoperators.t b/S13-overloading/metaoperators.t index 185349b1ae..58a363f44e 100644 --- a/S13-overloading/metaoperators.t +++ b/S13-overloading/metaoperators.t @@ -1,7 +1,7 @@ use v6; use Test; -plan 11; +plan 12; #L @@ -42,4 +42,9 @@ is ~(('OMG','BBQ') <> ('BBQ','OMG')), 'OMGWTFBBQ BBQWTFOMG', '<<...>> hyper is (2 [&foo] 3 [&foo] 4), 24, "can we use a sub as an infix op between []"; } +# RT #130998 +{ + is([+](^20 .grep: *.is-prime), 77, "can we use &infix:<.> as argument for []"); +} + # vim: ft=perl6