Permalink
Browse files

pugs fudges

  • Loading branch information...
1 parent 44d0aa3 commit 28ef8dc7de6d087b2b1918b19a5e7f3995661974 @coke coke committed Feb 28, 2012
Showing with 256 additions and 5 deletions.
  1. +4 −0 S03-binding/ro.t
  2. +2 −0 S03-metaops/eager-hyper.t
  3. +66 −0 S03-operators/autoincrement-range.t
  4. +8 −0 S03-operators/inplace.t
  5. +2 −0 S03-operators/names.t
  6. +68 −0 S03-operators/range-int.t
  7. +2 −0 S03-operators/spaceship-and-containers.t
  8. +3 −0 S03-smartmatch/any-any.t
  9. +1 −0 S03-smartmatch/any-callable.t
  10. +2 −0 S03-smartmatch/any-method.t
  11. +8 −0 S03-smartmatch/any-num.t
  12. +1 −0 S03-smartmatch/any-str.t
  13. +6 −0 S03-smartmatch/disorganized.t
  14. +2 −0 S04-declarations/implicit-parameter.t
  15. +3 −0 S04-phasers/check.t
  16. +13 −0 S04-phasers/enter-leave.t
  17. +1 −0 S04-phasers/interpolate.t
  18. +1 −0 S04-phasers/rvalue.t
  19. +2 −0 S04-statement-modifiers/given.t
  20. +2 −0 S04-statement-modifiers/until.t
  21. +2 −0 S04-statement-modifiers/while.t
  22. +3 −0 S04-statement-parsing/hash.t
  23. +4 −0 S04-statements/do.t
  24. +2 −0 S04-statements/next.t
  25. +1 −0 S04-statements/unless.t
  26. +1 −0 S09-autovivification/autoincrement.t
  27. +5 −0 S12-attributes/inheritance.t
  28. +2 −1 S12-class/instantiate.t
  29. +2 −0 S12-class/namespaced.t
  30. +1 −0 S12-class/rw.t
  31. +1 −0 S12-methods/how.t
  32. +1 −0 S12-methods/method-vs-sub.t
  33. +1 −0 S12-traits/basic.t
  34. +5 −0 S29-context/eval.t
  35. +3 −1 integration/99problems-41-to-50.t
  36. +4 −0 integration/advent2009-day03.t
  37. +4 −1 integration/advent2009-day07.t
  38. +2 −0 integration/advent2009-day11.t
  39. +1 −0 integration/advent2009-day15.t
  40. +5 −0 integration/advent2009-day19.t
  41. +2 −0 integration/code-blocks-as-sub-args.t
  42. +2 −1 integration/no-indirect-new.t
  43. +5 −1 integration/real-strings.t
View
@@ -11,11 +11,14 @@ plan 9;
$x ::= $y;
is $x, 3, '::= on scalars took the value from the RHS';
#?rakudo todo 'nom regression'
+ #?pugs todo
dies_ok { $x = 5 }; '... and made the LHS RO';
#?rakudo todo 'nom regression'
+ #?pugs todo
is $x, 3, 'variable is still 3';
}
+#?pugs todo
{
my Int $a = 4;
my Str $b;
@@ -31,6 +34,7 @@ plan 9;
is @x.join('|'), 'd|e', '::= on arrays';
#?rakudo 4 todo '::= on arrays'
#?niecza todo
+ #?pugs 4 todo
dies_ok { @x := <3 4 foo> }, '... make RO';
#?niecza todo
is @x.join('|'), 'd|e', 'value unchanged';
@@ -12,6 +12,7 @@ plan 8;
my @test = gather { for 1 .. 5 { $counter++; take $_ } };
is(@test[0], 1, 'iterator works as expected');
#?rakudo todo "Array assignment is not lazy -- is this test wrong?"
+ #?pugs todo
is($counter, 1, 'iterator was lazy and only ran the block once');
}
@@ -34,6 +35,7 @@ plan 8;
# L<S02/Lists/A variant of eager is the hyper list operator>
# Hyper
#?rakudo skip 'hyper prefix NYI'
+#?pugs skip 'hyper prefix NYI'
{
my $counter = 0;
my @test = hyper gather { for 1 .. 5 { $counter++; take $_; } };
Oops, something went wrong.

0 comments on commit 28ef8dc

Please sign in to comment.