Permalink
Browse files

pugs fudge

  • Loading branch information...
1 parent 094220d commit e311f17379a250d893041f2153f323ed4141cc10 @coke coke committed Jul 16, 2012
Showing with 7 additions and 0 deletions.
  1. +1 −0 S12-attributes/clone.t
  2. +1 −0 S12-class/inheritance.t
  3. +4 −0 S32-array/keys_values.t
  4. +1 −0 S32-str/substr.t
View
@@ -53,6 +53,7 @@ is($val2, 42, '... cloned object has proper attr value');
}
# RT 88254
+#?pugs todo
{
my ($p, $q);
$p = 'a' ~~ /$<foo>='a'/;
View
@@ -173,6 +173,7 @@ eval_dies_ok 'class RT64642 is ::Nowhere {}', 'dies: class D is ::C {}';
}
# RT 75376
+#?pugs skip 'No such subroutine: "&RT75376::B"'
{
my class RT75376::A { };
lives_ok { our class RT75376::B is RT75376::A { } },
View
@@ -22,9 +22,13 @@ is(~@array.values, 'a b c d', '@array.values works');
is(~values(@array), 'a b c d', 'values(@array) works');
is(+@array.values, +@array, 'we have the same number of values as elements in the array');
+#?pugs emit #
my $v := @array.values;
+#?pugs emit #
$v.shift; $v.shift;
+#?pugs skip "Can't modify constant item: VUndef"
is($v.elems, 2, "shifting .values removes an element...");
+#?pugs skip "Can't modify constant item: VUndef"
is(@array.elems, 4, "...while leaving original list alone.");
# vim: ft=perl6
View
@@ -240,6 +240,7 @@ sub p (Int $a) { my $p = $a; return $p }
eval_dies_ok 'substr(Any, 0)', 'substr needs Cool as argument';
# RT 76682
+#?pugs skip 'Failure NYI'
{
is "foo".substr(4), Failure, 'substr with start beyond end of string is Failure'
}

0 comments on commit e311f17

Please sign in to comment.