Permalink
Browse files

[t/spec] some unfudges for rakudo

git-svn-id: http://svn.pugscode.org/pugs@30417 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent d97acb9 commit 964709954acaeb9bf163679fbfe1e5a88fed6931 moritz committed Apr 20, 2010
Showing with 4 additions and 5 deletions.
  1. +2 −2 S02-literals/listquote.t
  2. +0 −2 S03-operators/assign.t
  3. +1 −0 S06-operator-overloading/sub.t
  4. +1 −1 S12-attributes/instance.t
View
@@ -23,11 +23,11 @@ my $s = join |<< <a x y z>;
is($s, "xayaz", 'listop |<< <list>');
}
-#?rakudo 2 todo 'unknown errors'
dies_ok { [1,2,3].join<a b c> }, '.join<abc> parses but semantic error';
my @y = try { ({:a<1>, :b(2)}<a b c>) };
-ok(@y eqv [1,2,Mu], '{...}<a b c> is hash subscript');
+#?rakudo todo 'unknown errors'
+ok(@y eqv [1,2,Any], '{...}<a b c> is hash subscript');
eval_dies_ok '({:a<1>, :b(2)} <a b c>)', '{...} <...> parsefail';
View
@@ -597,7 +597,6 @@ sub l () { 1, 2 };
ok(!defined(@z[1]), 'lhs treats %a<x> as one-item list');
}
-#?rakudo todo '%a<x y z> on LHS should be a list'
{
my %a;
my @z = (%a<x y z> = l, l);
@@ -615,7 +614,6 @@ sub l () { 1, 2 };
ok(!defined(@z[1]), q/lhs treats %a{'x'} as list/);
}
-#?rakudo todo '%a{List} should trigger list assignment'
{
my %a;
my @z = (%a{'x','y','z'} = l, l);
@@ -185,6 +185,7 @@ Testing operator overloading subroutines
# Overriding prefix:<if>
# L<S04/"Statement parsing" /"since prefix:<if> would hide statement_modifier:<if>">
+#?rakudo skip 'prefix:<if>'
{
my proto prefix:<if> ($a) { $a*2 }
is (if+5), 10;
@@ -469,7 +469,7 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
lives_ok {$o.h = { a => 1, b => 2 } }, 'assign to typed hash attrib';
lives_ok {$o.h<c> = 3}, 'insertion into typed hash attrib';
lives_ok {$o.h.push: (d => 4) }, 'pushing onto typed hash attrib';
- #?rakudo todo 'typed hash'
+
is_deeply $o.h<a b c d>, (1, 2, 3, 4), '... all of them worked';
#?rakudo 3 todo 'typed hash'

0 comments on commit 9647099

Please sign in to comment.