From c2effba3220429c1f2f232adeb3e3ec1b5633eb4 Mon Sep 17 00:00:00 2001 From: Elizabeth Mattijsen Date: Sun, 31 May 2015 11:06:39 +0300 Subject: [PATCH] Add some tests for #125289, masak++ --- S03-metaops/reduce.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/S03-metaops/reduce.t b/S03-metaops/reduce.t index 6c7856748d..652ea4c458 100644 --- a/S03-metaops/reduce.t +++ b/S03-metaops/reduce.t @@ -1,6 +1,6 @@ use v6; use Test; -plan 366; +plan 369; =begin pod @@ -383,4 +383,12 @@ ok ([+]) == 0, 'argumentless [+] parses'; 'non-associative operator "[leg]" can not be used as reduction operator'; } +# RT #125289 +{ + is [:a], [a => True], 'does [:a] parse ok and give the right value'; + is [:a,], [a => True], 'does [:a,] parse ok and give the right value'; + is [:!a], [a => False], 'does [:!a] parse ok and give the right value'; +} + + # vim: ft=perl6