Permalink
Browse files

[t/spec] Little more fudge tweaks.

git-svn-id: http://svn.pugscode.org/pugs@30132 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent bba87f6 commit 254123a686e49fbdab87548ddb24281da2e31d53 jnthn committed Mar 20, 2010
Showing with 6 additions and 4 deletions.
  1. +3 −3 S12-attributes/instance.t
  2. +3 −1 S12-methods/chaining.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 128;
+plan 127;
=begin pod
@@ -184,8 +184,8 @@ class Foo1 { has $.bar; };
}
# L<S12/Attributes>
-ok eval('class Foo7e { has $.attr = 42 }; 1'), "class definition worked";
-is eval('Foo7e.new.attr'), 42, "default attribute value (1)";
+class Foo7e { has $.attr = 42 }
+is Foo7e.new.attr, 42, "default attribute value (1)";
#?rakudo todo 'scoping issues'
{
View
@@ -36,6 +36,7 @@ is($foo.num(), 20, '... got the right num value');
my $_foo2 = $foo.baz(20);
isa_ok($_foo2, Foo);
+#?rakudo todo '[===] bug?'
ok( ([===]($foo, $_foo2, $_foo1)), '... $_foo1, $_foo2 and $foo are the same instances');
is($foo.num(), 40, '... got the right num value');
@@ -48,6 +49,7 @@ lives_ok {
}, '... method chaining works';
isa_ok($_foo3, Foo);
+#?rakudo todo '[===] bug?'
ok( ([===]($_foo3, $_foo2, $_foo1, $foo)),
'... $_foo3, $_foo1, $_foo2 and $foo are the same instances');
@@ -61,7 +63,7 @@ eval_dies_ok('$foo->num', 'Perl 5 -> is dead (method call)');
# L<S03/"Changes to Perl 5 operators"/"-> becomes .">
# L<S12/"Open vs Closed Classes"/"though you have to be explicit">
-#?rakudo skip 'parsing [=>]'
+#?rakudo todo 'parsing [=>]'
{
# (A => (B => Mu)) => (C => Mu))
# ((A B) C)

0 comments on commit 254123a

Please sign in to comment.