Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

pugs unfudge

  • Loading branch information...
commit 7857696f1b4fa944a97a4c7022f842eab3084b3e 1 parent 289b7be
@coke coke authored
View
4 S02-lexical-conventions/unicode.t
@@ -118,11 +118,9 @@ eval_lives_ok "q\x298d test \x298e", "Unicode open-298d maps to close-298e";
eval_lives_ok "q\x301d test \x301e", "Unicode open-301d maps to close-301e";
eval_dies_ok "q\x301d test \x301f", "Unicode open-301d does not map to close-301f";
#?rakudo: 3 todo 'Alternate open/close not working yet'
-#?pugs 6 skip "eval_lives_ok"
+#?pugs 6 todo "eval_lives_ok"
eval_lives_ok "q\x2018 test \x2019", "Unicode open-2018 maps to to close-2019";
-#?pugs 6 skip "eval_lives_ok"
eval_lives_ok "q\x201a test \x2019", "Unicode open-201a maps to to close-2019";
-#?pugs todo
eval_lives_ok "q\x2018 \x201a test \x2019", "Alternative open-brakets treat their other alternates as non-special";
# vim: ft=perl6 fileencoding=utf-8
View
9 S02-types/bool.t
@@ -16,10 +16,8 @@ $a = Bool::False;
isa_ok($a, Bool);
# tests that Bool.Bool works
-#?pugs 2 skip "Bool"
isa_ok (Bool::True).Bool, Bool, "Bool.Bool is a Bool";
isa_ok (Bool::False).Bool, Bool, "Bool.Bool is a Bool";
-#?pugs 2 skip "coercion"
is (Bool::True).Bool, Bool::True, "Bool.Bool works for True";
is (Bool::False).Bool, Bool::False, "Bool.Bool works for False";
@@ -50,7 +48,7 @@ isa_ok(~Bool::False, Str);
#?pugs 2 todo "stringification"
is(~Bool::True, 'True', 'Bool stringification (True)');
is(~Bool::False, 'False', 'Bool stringification (False)');
-#?pugs 2 skip "coercion"
+#?pugs 2 skip '.Str'
is Bool::True.Str, 'True', 'True.Str';
is Bool::False.Str, 'False', 'False.Str';
#?pugs 2 skip "gist"
@@ -63,11 +61,10 @@ is Bool::False.perl, 'Bool::False', 'False.perl';
#?pugs 2 skip "Numeric"
ok(+Bool::True ~~ Numeric);
ok(+Bool::False ~~ Numeric);
-#?pugs 2 skip "Int"
+#?pugs 2 todo "Int"
isa_ok(+Bool::True, Int, 'True numifies to an Int');
isa_ok(+Bool::False, Int, 'False numifies to an Int');
-#?pugs 2 skip "coercion"
is(Bool::True.Int, '1', 'True Intifies to 1');
is(Bool::False.Int, '0', 'False Intifies to 1');
@@ -79,7 +76,7 @@ my $bool = Bool::False;
is(++$bool, Bool::True, 'Increment of Bool::False produces Bool::True');
#?pugs todo
is(++$bool, Bool::True, 'Increment of Bool::True still produces Bool::True');
-#?pugs skip 'Cannot cast from VBool True to VCode'
+#?pugs todo 'Cannot cast from VBool True to VCode'
is(--$bool, Bool::False, 'Decrement of Bool::True produces Bool::False');
#?pugs todo
is(--$bool, Bool::False, 'Decrement of Bool::False produces Bool::False');
View
1  S02-types/pair.t
@@ -163,7 +163,6 @@ Hm, Hash::pair? Never heard of that. --iblech
sub test4 (%h){
for %h.pair -> $pair {
- #?pugs todo 'bug'
isa_ok($pair,Pair);
is($pair.key, 'foo', 'sub test4: access by unspecced "pair" got the right $pair.key');
is($pair.value, 'bar', 'sub test4: access by unspecced "pair" got the right $pair.value');
View
3  S03-operators/arith.t
@@ -253,7 +253,6 @@ is 2 ** 2 ** 3, 256, 'infix:<**> is right associative';
is 1**Inf, 1;
}
-#?pugs skip 'slow'
{
# NaN
is NaN, NaN;
@@ -302,7 +301,6 @@ dies_ok( { $x = 0; say 3 % $x; }, 'Modulo zero dies and is catchable with VInt/V
#?rakudo todo 'die or fail?'
dies_ok( { $x := 0; say 3 % $x; }, 'Modulo zero dies and is catchable with VRef variables');
-#?pugs skip 'div'
eval_dies_ok('say 3 div 0', 'Division by zero dies and is catchable');
#?pugs skip 'div'
dies_ok( { $x = 0; say 3 div $x; }, 'Division by zero dies and is catchable with VInt div VRat variables');
@@ -310,7 +308,6 @@ dies_ok( { $x = 0; say 3 div $x; }, 'Division by zero dies and is catchable with
dies_ok( { $x := 0; say 3 div $x; }, 'Division by zero dies and is catchable with VRef variables');
# This is a rakudo regression wrt bignum:
-#?pugs skip 'slow'
{
my $f = 1; $f *= $_ for 2..25;
ok $f == 15511210043330985984000000,
View
1  S03-operators/assign.t
@@ -532,7 +532,6 @@ my @p;
is(@p[1], 25, "?&= operator parses as item assignment 2");
}
-#?pugs eval 'parsefail'
{
my $x = 0;
@p = $x ?^= 42, 43;
View
1  S03-operators/bit.t
@@ -50,7 +50,6 @@ plan 27;
is( 33023 +> 7, 257, 'shift seven bits right' );
}
-#?pugs skip 'No such method in class Rat: "&Num"'
{
# Tests to see if you really can do casts negative floats to unsigned properly
my $neg1 = -1.0.Num;
View
1  S03-operators/eqv.t
@@ -144,7 +144,6 @@ plan 52;
}
{
- #?pugs skip "Mu"
is Any eqv Any, Bool::True, 'Any eqv Any';
}
View
1  S03-operators/inplace.t
@@ -27,7 +27,6 @@ plan 28;
}
#?rakudo skip "Method '' not found for invocant of class 'Str'"
-#?pugs skip 'Int'
{
my $a=3.14;
$a .= Int;
View
15 S05-modifier/pos.t
@@ -10,8 +10,6 @@ version 0.3 (12 Apr 2004), file t/continue.t.
plan 40;
-#?pugs emit force_todo(1,2,3,4,6);
-
# L<S05/Modifiers/causes the pattern to try to match only at>
for ("abcdef") {
@@ -99,34 +97,27 @@ for ("abcdef") {
{
my $str = "abcabcabc";
my $match = $str.match(/abc/, :pos(0));
- #?pugs skip 'coercion'
+ #?pugs todo
ok $match.Bool, "Match anchored to 0";
is $match.from, 0, "and the match is in the correct position";
- #?pugs skip 'coercion'
nok $str.match(/abc/, :pos(1)).Bool, "No match anchored to 1";
- #?pugs skip 'coercion'
nok $str.match(/abc/, :pos(2)).Bool, "No match anchored to 2";
$match = $str.match(/abc/, :pos(3));
- #?pugs skip 'coercion'
+ #?pugs todo
ok $match.Bool, "Match anchored to 3";
#?pugs todo
is $match.from, 3, "and the match is in the correct position";
- #?pugs skip 'coercion'
nok $str.match(/abc/, :pos(4)).Bool, "No match anchored to 4";
$match = $str.match(/abc/, :pos(6));
- #?pugs skip 'coercion'
+ #?pugs todo
ok $match.Bool, "Match anchored to 6";
#?pugs todo
is $match.from, 6, "and the match is in the correct position";
- #?pugs skip 'coercion'
nok $str.match(/abc/, :pos(7)).Bool, "No match anchored to 7";
- #?pugs skip 'coercion'
nok $str.match(/abc/, :pos(8)).Bool, "No match anchored to 8";
- #?pugs skip 'coercion'
nok $str.match(/abc/, :pos(9)).Bool, "No match anchored to 9";
- #?pugs skip 'coercion'
nok $str.match(/abc/, :pos(10)).Bool, "No match anchored to 10";
}
View
1  S32-num/int.t
@@ -69,7 +69,6 @@ isa_ok ?1, Bool, "?1 is Bool";
ok ?42, "?42 is true";
isa_ok ?42, Bool, "?42 is Bool";
-#?pugs 6 skip '.Bool'
nok 0.Bool, "0.Bool is false";
isa_ok 0.Bool, Bool, "0.Bool is Bool";
ok 1.Bool, "1.Bool is true";
View
1  S32-str/bool.t
@@ -9,7 +9,6 @@ isa_ok ?'hello', Bool, "?'hello' is Bool";
nok ?'0', "?'0' is false";
isa_ok ?'0', Bool, "?'0' is Bool";
-#?pugs 6 skip 'Bool'
nok ''.Bool, "''.Bool is false";
isa_ok ''.Bool, Bool, "''.Bool is Bool";
ok 'hello'.Bool, "'hello'.Bool is true";
Please sign in to comment.
Something went wrong with that request. Please try again.