Permalink
Browse files

pugs fudge

  • Loading branch information...
1 parent f200e0a commit 16dd063843ed529d51ac3fdbd11b1116d03a94a9 @coke coke committed Jul 19, 2012
@@ -62,13 +62,15 @@ my @a = <b c d>;
is(@o[2], "d", $test);
}
+#?pugs skip 'todo'
{
my $test = q{ (\@a) received as arrayref };
my $o = $p5_dumper(\@a);
is($o[0], "b", $test);
is($o[2], "d", $test);
}
+#?pugs skip 'todo'
{
my $test = q{ (VAR @a) received as arrayref };
my $o = $p5_dumper(VAR @a);
@@ -90,6 +92,7 @@ my $s = 'str';
is($$o, $s, $test);
}
+#?pugs skip 'todo'
{
my $test = q{ (VAR $s) received as scalarref };
my $o = $p5_dumper(VAR $s);
@@ -50,7 +50,6 @@ is("&func_w_args("foo","bar"))", '[foo][bar])', '"&func_w_args(...)" should inte
# L<S02/Method calls/"In order to interpolate the result of a method call">
is("$world.chars()", '5', 'method calls with parens should interpolate');
is("$world.chars", 'World.chars', 'method calls without parens should not interpolate');
-#?pugs skip '.flip'
is("$world.flip.chars()", '5', 'cascade of argumentless methods, last ending in paren');
is("$world.substr(0,1)", 'W', 'method calls with parens and args should interpolate');
@@ -2,7 +2,7 @@ use v6;
use Test;
# L<S02/Names and Variables/To get a Perlish representation of any object>
-#?pugs emit plan 87;
+#?pugs emit plan 83;
my @tests = (
# Basic scalar values
@@ -25,14 +25,18 @@ my @tests = (
?1, ?0,
#?rakudo emit # Mu eq Mu is an error now
#?niecza emit # Dunno what's wrong with this one
+ #?pugs emit #
Mu,
#?rakudo emit # parse error
#?niecza emit # Autoloading NYI
#?pugs emit #
rx:P5/foo/, rx:P5//, rx:P5/^.*$/,
# References to scalars
- \42, \Inf, \-Inf, \NaN, \"string", \"", \?1, \?0, \Mu,
+ \42, \Inf, \-Inf, \NaN, \"string", \"", \?1, \?0,
+
+ #?pugs emit #
+ \Mu,
#?pugs emit #
(a => 1),
View
@@ -48,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 '.Str'
+#?pugs 2 todo '.Str'
is Bool::True.Str, 'True', 'True.Str';
is Bool::False.Str, 'False', 'False.Str';
#?pugs 2 todo '.gist'
@@ -69,7 +69,6 @@ sub iis(Mu $a, Mu $b, $descr) {
is ~"3e5", "3e5", "~ context forcer works (10)";
}
-#?pugs skip 'Str'
ok 4.Str ~~ Str, 'Int.Str returns a Str';
sub eval_elsewhere($code){ eval($code) }
@@ -83,7 +83,6 @@ is ~@b, "a b d e z", "inplace sort";
}
# RT #70676
-#?pugs skip 'Int'
{
my $x = 5.5;
$x .= Int;
@@ -53,7 +53,6 @@ is(2 - 2 / 2, 1 / 1, "/ binds tighter than binary -");
# additive
is(1 ~ 2 * 3, 16, "~ binds looser than *");
-#?pugs skip 'autothread'
ok(?((1 ~ 2 & 12) == 12), "but tighter than &");
#?pugs skip 'autothread'
ok(?((2 + 2 | 4 - 1) == 4), "and + binds tighter than |");
@@ -80,13 +79,13 @@ ok(?(!(1 & 2 ^ 4) != 3), "blah blah blah");
# junctive or
#?rakudo todo 'non-associativeness of infix:<^> and |'
-#?pugs skip 'autothread, Mu'
+#?pugs todo 'autothread, Mu'
{ # test that | and ^ are on the same level but parsefail
eval_dies_ok 'my Mu $a = (1 | 2 ^ 3)', '| and ^ may not associate';
eval_dies_ok 'my Mu $a = (1 ^ 2 | 3)', '^ and | may not associate';
};
-#?pugs skip 'autothread, Mu'
+#?pugs todo 'autothread, Mu'
{
my Mu $a = (abs -1 ^ -1); # read as abs(-1 ^ -1) -> (1^1)
ok(!($a == 1), 'junctive or binds more tightly then abs (1)');
@@ -167,7 +166,7 @@ is(((not 1,42)[1]), 42, "not is tighter than comma");
# list prefix
-#?pugs skip 'authothread'
+#?pugs todo 'authothread'
{
my $c = any 1, 2 Z 3, 4;
ok($c == 3, "any is less tight than comma and Z");
@@ -202,7 +201,7 @@ is(@c, [1,2,3], "@ = binds looser than ,");
# http://irclog.perlgeek.de/perl6/2009-07-14#i_1316200
#
# so uc(False) stringifies False to 'FALSE', and uc('0') is false. Phew.
-#?pugs skip 'Bool.Str'
+#?pugs todo 'Bool.Str'
is (uc "a" eq "A"), uc(False.Str), "uc has the correct precedence in comparison to eq";
# L<S03/Named unary precedence/my $i = int $x; # ILLEGAL>
@@ -114,7 +114,7 @@ sub accumtest($expect, $op) {
}
#?niecza skip "^^ NYI"
-#?pugs skip '^^ short circuit'
+#?pugs todo '^^ short circuit'
{
my $x; # should be Mu
my $y = 2;
@@ -132,7 +132,7 @@ sub accumtest($expect, $op) {
}
#?niecza skip "xor NYI"
-#?pugs skip "xor shortcircuit"
+#?pugs todo "xor shortcircuit"
{
my $x; # should be Mu
my $y = 2;
@@ -204,7 +204,6 @@ sub accumtest($expect, $op) {
#?pugs 2 skip 'Range'
isa_ok 0 ^^ ^7, Range, '^^ can return a Range';
isa_ok ^7 ^^ 0, Range, '^^ can return a Range';
- #?pugs 3 skip 'Mu'
isa_ok 7.5i ^^ Mu, Complex, '^^ can return a Complex';
isa_ok Inf ^^ Mu, Num, '^^ can return a Num';
isa_ok 'Inf' ^^ Mu, Str, '^^ can return a Str';
@@ -20,7 +20,7 @@ plan 18;
# 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 skip 'Mu'
+ #?pugs todo 'Mu'
ok (Mu ~~ 0), 'Mu ~~ 0';
#?niecza skip 'Nominal type check failed for #1'
ok !(Mu ~~ 2.3), 'Mu ~~ $other_number';
@@ -20,7 +20,6 @@ plan 5;
is($a, 6, "post given");
}
-#?pugs skip "Can't modify constant item"
{
my $a = '';
$a = $_ given 'a';
@@ -297,7 +297,7 @@ eval_lives_ok 'given 3 { sub a() { } }', 'can define a sub inside a given';
#?pugs todo
eval_lives_ok 'sub a() { } given 3', 'can define a sub inside a statement-modifying given';
-#?pugs skip 'ok variant?'
+#?pugs todo 'ok variant?'
{
my $capture-is-correct = False;
given "Hello" {
@@ -38,7 +38,6 @@ my $x = 'test';
ok($found, 'unless 1 is not executed');
}
-#?pugs skip 'Mu'
{
my $found = 0;
unless Mu { $found = 1; }
@@ -12,7 +12,7 @@ is $/.WHAT.gist, Match.gist, 'got right type';
#?pugs todo
ok $/.Bool, '.Bool';
ok $/.defined, '.defined';
-#?pugs skip 'Match.Str'
+#?pugs todo 'Match.Str'
is $/.Str, '12', '.Str';
#?pugs todo
is $/.from, 2, '.from';
@@ -37,7 +37,6 @@ is $/.kv.elems, 0, '.kv (empty)';
nok 'abde' ~~ /\d/, 'no match';
nok $/.Bool, 'failed match is False';
-#?pugs skip 'Match.Str'
is $/.Str, '', 'false match stringifies to empty string';
my $c;
@@ -39,7 +39,6 @@ dies_ok { for "a b c".split(/\s/) -> $foo { $foo = $foo; } }, 'variables returne
#?pugs todo 'Str'
ok 1.Str ~~ / ^ 1 $ /, 'RT 66366; 1.Str is a "good" Str';
-#?pugs 2 skip 'flip'
is "helo".flip().trans("aeiou" => "AEIOU"), 'OlEh', '.flip.trans (RT 66300)';
is "helo".flip.trans(("aeiou" => "AEIOU")), 'OlEh', '.flip.trans (RT 66300)';
is "helo".lc.trans(("aeiou" => "AEIOU")), 'hElO', '.flip.trans (RT 66300)';

0 comments on commit 16dd063

Please sign in to comment.