Browse files

[t/spec] Some unfuding for Rakudo.

git-svn-id: http://svn.pugscode.org/pugs@26891 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 2210eb5 commit 71ef855319d578b7078c3091e7865dfda6b638b4 jnthn committed May 20, 2009
Showing with 2 additions and 1 deletion.
  1. +2 −1 S12-attributes/instance.t
View
3 S12-attributes/instance.t
@@ -444,7 +444,7 @@ is eval('Foo7.new.attr'), 42, "default attribute value (1)";
is $o.h.elems, 0, 'typed public hash attribute is empty';
is $o.pac, 0, 'typed private array attribute is empty';
is $o.phc, 0, 'typed private hash attribute is empty';
- #?rakudo 20 skip 'typed array and hash attributes'
+
ok $o.a.of === Int, 'array attribute is typed';
lives_ok { $o.a = (2, 3) }, 'Can assign to typed drw-array-attrib';
lives_ok { $o.a[2] = 4 }, 'Can insert into typed rw-array-attrib';
@@ -457,6 +457,7 @@ is eval('Foo7.new.attr'), 42, "default attribute value (1)";
dies_ok { $o.a.push: [2, 3]}, 'type enforced on array attrib (push)';
dies_ok { $o.a[42]<foo> = 3}, 'no autovivification (typed array)';
+ #?rakudo todo 'over-eager auto-vivification bugs'
is $o.a.join('|'), '2|3|4|5',
'... all of the above actually did nothing (not just died)';

0 comments on commit 71ef855

Please sign in to comment.