Skip to content
Browse files

pugs unfudge

  • Loading branch information...
1 parent 47bf8e1 commit ebb9ec5713ba3662074dc97df18c20d4b71079ef @coke coke committed Apr 24, 2012
View
1 S02-names/symbolic-deref.t
@@ -130,7 +130,6 @@ my $outer = 'outside';
cmp_ok &::("say"), &infix:<===>, &say,
"symbolic dereferentiation of CORE subs works (1)";
- #?pugs skip "todo"
ok &::("so")(42),
"symbolic dereferentiation of CORE subs works (2)";
is &::("truncate")(3.1), 3,
View
12 S02-types/array.t
@@ -55,14 +55,11 @@ is(@array1.[0], 'foo', 'got the right value at array1 index 0 using the . notati
# array with strings, numbers and undef
-#?pugs emit my @array2;
-#?pugs emit #
my @array2 = ("test", 1, Mu);
{
isa_ok(@array2, Array);
- #?pugs 3 todo
is(+@array2, 3, 'the array2 has 3 elements');
is(@array2[0], 'test', 'got the right value at array2 index 0');
is(@array2[1], 1, 'got the right value at array2 index 1');
@@ -78,7 +75,6 @@ my @array2 = ("test", 1, Mu);
is(@array3[0], 'foo', 'got the right value at array3 index 0');
is(@array3[1], 'bar', 'got the right value at array3 index 1');
is(@array3[2], 'baz', 'got the right value at array3 index 2');
- #?pugs 2 todo
is(@array3[3], 'test', 'got the right value at array3 index 3');
is(@array3[4], 1, 'got the right value at array3 index 4');
ok(!@array3[5].defined,'got the right value at array3 index 5');
@@ -91,7 +87,6 @@ my @array2 = ("test", 1, Mu);
is(+@array4, 3, 'the array4 has 3 elements');
ok(!defined(@array4[0]), 'got the right value at array4 index 0');
- #?pugs 2 todo
is(@array4[1], 1, 'got the right value at array4 index 1');
is(@array4[2], 'test', 'got the right value at array4 index 2');
}
@@ -103,7 +98,6 @@ my @array2 = ("test", 1, Mu);
is(+@array5, 6, 'the array5 has 6 elements');
ok(!defined(@array5[0]), 'got the right value at array5 index 0');
- #?pugs 2 todo
is(@array5[1], 1, 'got the right value at array5 index 1');
is(@array5[2], 'test', 'got the right value at array5 index 2');
is(@array5[3], 'baz', 'got the right value at array5 index 3');
@@ -156,7 +150,7 @@ my @array2 = ("test", 1, Mu);
is(+@array10, 3, "trailing commas make correct array");
}
-#?pugs skip "multi-dim arrays not implemented"
+#?pugs todo "multi-dim arrays not implemented"
#?rakudo skip "multi-dim arrays"
#?niecza skip "multi-dim arrays"
{
@@ -229,19 +223,19 @@ my @array2 = ("test", 1, Mu);
is @arr[0], "new value", "modifying of array contents (constants) works";
}
-#?pugs skip "no whatever star yet"
{
my @arr;
lives_ok { @arr[*-1] }, "readonly accessing [*-1] of an empty array is ok (1)";
ok !(try { @arr[*-1] }), "readonly accessing [*-1] of an empty array is ok (2)";
+ #?pugs 2 todo
dies_ok { @arr[*-1] = 42 }, "assigning to [*-1] of an empty array is fatal";
dies_ok { @arr[*-1] := 42 }, "binding [*-1] of an empty array is fatal";
}
-#?pugs skip "no whatever star yet"
{
my @arr = (23);
lives_ok { @arr[*-2] }, "readonly accessing [*-2] of an one-elem array is ok (1)";
+ #?pugs 3 todo
ok !(try { @arr[*-2] }), "readonly accessing [*-2] of an one-elem array is ok (2)";
dies_ok { @arr[*-2] = 42 }, "assigning to [*-2] of an one-elem array is fatal";
dies_ok { @arr[*-2] := 42 }, "binding [*-2] of an empty array is fatal";
View
2 S02-types/subset.t
@@ -37,7 +37,6 @@ dies_ok { eval('Even.new') }, 'Cannot instantiate a subtype';
#?pugs emit #
subset Digit of Int where ^10;
-#?pugs skip 'needs previous emit'
{
my Digit $x = 3;
is $x, 3, "Can assign to var with 'subset' type constraint";
@@ -178,7 +177,6 @@ dies_ok { my Digit $x = 3.1 },
#?pugs emit #
subset Bug::RT80930 of Int where { $_ %% 2 };
-#?pugs skip 'needs previous emit'
lives_ok { my Bug::RT80930 $rt80930 }, 'subset with "::" in the name';
# RT #95500
View
3 S03-operators/context-forcers.t
@@ -32,7 +32,6 @@ sub iis(Mu $a, Mu $b, $descr) {
iis ?(?"3"), True, "? context forcer works (13)";
iis ?(?"0"), False, "? context forcer works (14)";
- #?pugs skip 'Mu'
iis ?Mu, False, "? context forcer works (15)";
}
{ # L<S02/"Names and Variables" /In boolean contexts/>
@@ -62,7 +61,7 @@ sub iis(Mu $a, Mu $b, $descr) {
is ~"0", "0", "~ context forcer works (4)";
is ~"", "", "~ context forcer works (5)";
#?rakudo skip '~Mu'
- #?pugs skip 'Mu'
+ #?pugs todo 'Mu'
is ~Mu, "", "~ context forcer works (6)";
is ~"Inf", "Inf", "~ context forcer works (7)";
is ~"-Inf", "-Inf", "~ context forcer works (8)";
View
2 S03-operators/eqv.t
@@ -110,10 +110,10 @@ plan 52;
#?rakudo skip 'captures'
#?niecza skip 'Cannot use value like Capture as a number'
-#?pugs skip "Mu"
{
ok !(\3 eqv \4), "eqv on anonymous scalar references (1)";
# XXX the following seems bogus nowadays
+ #?pugs 2 todo
ok !(\3 eqv \3), "eqv on anonymous scalar references (2)";
ok !(\Mu eqv \Mu), "eqv on anonymous scalar references (3)";
}
View
1 S03-operators/increment.t
@@ -13,7 +13,6 @@ Verify that autoincrement/autodecrement work properly.
=end description
-#?pugs skip 'Mu'
{
my $a = Mu;
is($a++, 0, 'Mu++ == 0');
View
1 S03-operators/misc.t
@@ -53,7 +53,6 @@ is("text " ~ "stitching", "text stitching", 'concatenation with ~ operator');
# L<S03/Tight or precedence/short-circuit inclusive-or>
is(2 || 3, 2, "|| returns first true value");
-#?pugs skip 'Mu'
ok(!(defined( 0 || Mu)), "|| returns last false value of list?");
{
View
4 S03-operators/range-int.t
@@ -9,7 +9,6 @@ is ~(-17^..-19), '', '-17^..-19';
#?pugs skip 'empty list'
is ~(-17^..^-19), '', '-17^..^-19';
is ~(-17..-18), '', '-17..-18';
-#?pugs skip 'empty list'
is ~(-17..^-18), '', '-17..^-18';
#?pugs skip 'empty list'
is ~(-17^..-18), '', '-17^..-18';
@@ -77,7 +76,6 @@ is ~(-3..^-5), '', '-3..^-5';
is ~(-3^..-5), '', '-3^..-5';
#?pugs skip 'empty list'
is ~(-3^..^-5), '', '-3^..^-5';
-#?pugs skip 'empty list'
is ~(-3..-4), '', '-3..-4';
is ~(-3..^-4), '', '-3..^-4';
#?pugs skip 'empty list'
@@ -152,7 +150,6 @@ is ~(-2..^-3), '', '-2..^-3';
is ~(-2^..-3), '', '-2^..-3';
#?pugs skip 'empty list'
is ~(-2^..^-3), '', '-2^..^-3';
-#?pugs skip 'empty list'
is ~(-2..-2), '-2', '-2..-2';
is ~(-2..^-2), '', '-2..^-2';
is ~(-2^..-2), '', '-2^..-2';
@@ -163,7 +160,6 @@ is ~(-2^..-1), '-1', '-2^..-1';
is ~(-2^..^-1), '', '-2^..^-1';
is ~(-2..0), '-2 -1 0', '-2..0';
is ~(-2..^0), '-2 -1', '-2..^0';
-#?pugs skip 'empty list'
is ~(-2^..0), '-1 0', '-2^..0';
is ~(-2^..^0), '-1', '-2^..^0';
is ~(-2..1), '-2 -1 0 1', '-2..1';
View
3 S03-operators/short-circuit.t
@@ -155,7 +155,6 @@ sub accumtest($expect, $op) {
is(0 || 42, 42, "|| operator working");
is((0 or 42), 42, "or operator working");
- #?pugs 2 skip 'Mu'
is((Mu // 42), 42, "// operator working"); #"
is((Mu orelse 42), 42, "orelse operator working");
@@ -166,7 +165,6 @@ sub accumtest($expect, $op) {
is(1 ^^ 42, False, "^^ operator working (both true)");
#?pugs todo
is(0 ^^ 0, 0, "^^ operator working (both false)");
- #?pugs 6 skip 'xor'
is((0 xor 42), 42, "xor operator working (one true)");
is((42 xor 0), 42, "xor operator working (one true)");
is((0 xor 42), 42, "xor operator working (one true)");
@@ -201,7 +199,6 @@ sub accumtest($expect, $op) {
#?rakudo skip 'segmentation fault'
isa_ok 7 ^^ 7, Bool, '^^ can return a Bool';
- #?pugs skip 'Mu'
isa_ok 7 ^^ Mu, Int, '^^ can return an Int';
#?pugs 2 skip 'Range'
isa_ok 0 ^^ ^7, Range, '^^ can return a Range';
View
1 S03-smartmatch/any-callable.t
@@ -13,7 +13,6 @@ plan 6;
}
#L<S03/"Smart matching"/Any Callable:() simple closure truth>
-#?pugs skip 'Mu'
{
sub uhuh { 1 }
sub nuhuh { Mu }
View
11 S03-smartmatch/any-num.t
@@ -9,19 +9,18 @@ plan 18;
#?pugs todo
ok ('05' ~~ 5), '$something ~~ Int numifies';
- #?pugs skip 'Rat'
+ #?pugs todo 'Rat'
ok ('05' ~~ 5.Rat), '$something ~~ Rat numifies';
- #?pugs skip 'Num'
+ #?pugs todo 'Num'
ok ('05' ~~ 5.Num), '$something ~~ Num numifies';
ok ('1.2' ~~ 1.2), '$thing ~~ Rat does numeric comparison';
- #?pugs skip 'Num'
ok ('1.2' ~~ 1.2.Num), '$thing ~~ Num does numeric comparison';
# yes, this warns, but it should still be true
#?rakudo 2 skip "Mu ~~ Num doesn't work yet"
#?niecza skip 'Nominal type check failed for #1'
- #?pugs 2 skip 'Mu'
+ #?pugs skip 'Mu'
ok (Mu ~~ 0), 'Mu ~~ 0';
#?niecza skip 'Nominal type check failed for #1'
ok !(Mu ~~ 2.3), 'Mu ~~ $other_number';
@@ -30,11 +29,11 @@ plan 18;
ok (3+0i ~~ 3), 'Complex ~~ Int (+)';
nok (3+1i ~~ 3), 'Complex ~~ Int (-)';
nok (4+0i ~~ 3), 'Complex ~~ Int (-)';
- #?pugs 3 skip 'Rat'
+ #?pugs todo
ok (3+0i ~~ 3.Rat), 'Complex ~~ Rat (+)';
nok (3+1i ~~ 3.Rat), 'Complex ~~ Rat (-)';
nok (4+0i ~~ 3.Rat), 'Complex ~~ Rat (-)';
- #?pugs 3 skip 'Num'
+ #?pugs todo
ok (3+0i ~~ 3.Num), 'Complex ~~ Num (+)';
nok (3+1i ~~ 3.Num), 'Complex ~~ Num (-)';
nok (4+0i ~~ 3.Num), 'Complex ~~ Num (-)';
View
2 S03-smartmatch/any-str.t
@@ -10,7 +10,7 @@ plan 5;
ok !(4 !~~ '4'), 'negated string equality';
#?rakudo skip 'smartmatching Mu against Str'
#?niecza skip 'Mu as argument'
- #?pugs skip 'Mu'
+ #?pugs todo 'Mu'
ok (Mu ~~ ''), 'Mu ~~ ""';
}
View
1 S03-smartmatch/disorganized.t
@@ -15,7 +15,6 @@ sub eval_elsewhere($code){ eval($code) }
ok("foo" ~~ .defined, "foo is ~~ .defined");
#?pugs todo
nok "foo" !~~ .defined, 'not foo !~~ .defined';
- #?pugs skip 'Mu'
nok((Mu ~~ .defined), "Mu is not .defined");
}

0 comments on commit ebb9ec5

Please sign in to comment.
Something went wrong with that request. Please try again.