Permalink
Browse files

[t/spec] Test for RT #67218 with help from pmichaud++

git-svn-id: http://svn.pugscode.org/pugs@27403 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent fc2d82c commit fc020ddb3abfb22dcc4a231ad8b469e66962b6b8 kyle committed Jul 4, 2009
Showing with 20 additions and 1 deletion.
  1. +20 −1 S02-builtin_data_types/pair.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 106;
+plan 114;
# L<S02/Mutable types/A single key-to-value association>
# basic Pair
@@ -340,3 +340,22 @@ L<"http://www.nntp.perl.org/group/perl.perl6.language/20122">
$pair = (:&code);
ok($pair eqv (code => &code), ':&foo syntax works');
}
+
+# RT #67218
+{
+ #?rakudo todo 'RT #67218'
+ eval_lives_ok ':a()', 'can parse ":a()"';
+ #?rakudo skip 'RT #67218'
+ lives_ok { :a() }, 'can execute ":a()"';
+
+ #?rakudo todo 'RT #67218'
+ eval_lives_ok ':a[]', 'can parse ":a[]"';
+ #?rakudo skip 'RT #67218'
+ lives_ok { :a[] }, 'can execute ":a[]"';
+
+ eval_lives_ok '(a => ())', 'can parse "(a => ())"';
+ lives_ok { (a => ()) }, 'can execute "(a => ())"';
+
+ eval_lives_ok '(a => [])', 'can parse "(a => [])"';
+ lives_ok { (a => []) }, 'can execute "(a => [])"';
+}

0 comments on commit fc020dd

Please sign in to comment.