Permalink
Browse files

[t/spec] more unfudging, and add tests to passing-arrays.t

git-svn-id: http://svn.pugscode.org/pugs@24221 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 3e9fd9a commit 785f27d96e13352a324e2a56caf79421de78c2a1 moritz committed Dec 9, 2008
Showing with 13 additions and 3 deletions.
  1. +0 −1 S05-mass/rx.t
  2. +13 −1 S06-signature/passing-arrays.t
  3. +0 −1 S29-str/chop.t
View
@@ -422,7 +422,6 @@ ok ']' ~~ /<[\]]>/, 'escaped close bracket';
ok eval(q{{ '\\]]' ~~ /<[\]>/ }}) ~~ Failure also /parse error/, 'unescaped backslash (or no closing brace)';
#### ^\><[<]> >< y lt character class
-#?rakudo skip 'parse error'
ok '><' ~~ /^\><[<]>/, 'lt character class';
#### ^<[>]>\< >< y gt character class
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 4;
+plan 7;
{
sub count(@a) {
@@ -23,3 +23,15 @@ plan 4;
is count2((1,2,3)), 1, 'count2((1,2,3))';
}
+{
+ sub pa(@a) { @a.WHAT; }
+ my @b = 2, 3;
+ is pa(@b), 'Array', 'basic array type sanity';
+ #?rakudo todo 'RT #61172'
+ dies_ok { pa(3) }, 'non-slurpy array does not take a single Int';
+
+ sub ph(%h) { 1 }
+ #?rakudo todo 'RT #61172'
+ dies_ok { ph(3) }, 'an Int is not a Hash';
+
+}
View
@@ -28,7 +28,6 @@ XXX: chop(%has) should return a hash of chopped strings?
=end more-discussion-needed
-#?rakudo skip "list assignment unimplemented"
{ # chop several things
my ($a, $b) = ("bar", "gorch");
#?pugs 3 todo ''

0 comments on commit 785f27d

Please sign in to comment.