Permalink
Browse files

rakudo unfudge

move some skips to (conditional) todos, run more passing tests.
  • Loading branch information...
1 parent ea0bc1d commit 33955a81068dc785cef6853bc126573a165b8018 @coke coke committed Mar 30, 2013
Showing with 7 additions and 5 deletions.
  1. +1 −1 S02-lexical-conventions/comments.t
  2. +4 −1 S02-literals/quoting.t
  3. +1 −1 S02-literals/radix.t
  4. +0 −1 S02-names-vars/varnames.t
  5. +1 −1 S03-junctions/misc.t
@@ -128,7 +128,7 @@ use Test;
# comment() before seeing that I meant #`{ comment within this string.
#?pugs todo 'bug'
-#?rakudo skip 'NYI'
+#?rakudo todo 'NYI'
eval_lives_ok " #`<<\n comment\n # >>\n >> 3",
'single line comment cannot correctly nested within multiline';
}
View
@@ -527,7 +527,6 @@ Hello, World
}
# shorthands:
-#?rakudo skip 'quoting adverbs'
#?niecza skip '& escape, zen slices'
#?pugs skip 'parsefail'
{
@@ -538,10 +537,14 @@ Hello, World
sub zeta {42};
is(qw[a b], <a b>, 'qw');
+ #?rakudo todo 'quoting adverbs'
is(qww[$alpha $beta], <foo bar>, 'qww');
is(qq[$alpha $beta], 'foo bar', 'qq');
+ #?rakudo todo 'quoting adverbs'
is(Qs[$alpha @delta[] %gamma<>], 'foo @delta %gamma', 'Qs');
+ #?rakudo todo 'quoting adverbs'
is(Qa[$alpha @delta[] %gamma<>], '$alpha ' ~ @delta ~ ' %gamma', 'Qa');
+ #?rakudo todo 'quoting adverbs'
is(Qh[$alpha @delta[] %gamma<>], '$alpha @delta ' ~ %gamma, 'Qh');
is(Qf[$alpha &zeta()], '$alpha 42', 'Qf');
is(Qb[$alpha\t$beta], '$alpha $beta', 'Qb');
View
@@ -187,7 +187,7 @@ is( :2<1.1> * :2<10> ** :2<10>, 6, 'multiplication and exponentiatio
{
#?pugs todo "todo"
is( :2<1.1*2**10>, 1536, 'Power of two in <> works');
- #?rakudo skip "Really?!"
+ #?rakudo todo "Really?!"
#?niecza skip "WTF?"
#?pugs skip "todo"
is( 2«1.1*:2<10>**:2<10>», 6, 'Powers of two in <<>> works');
@@ -17,7 +17,6 @@ eval_lives_ok 'my proto $/', 'as can $/';
eval_dies_ok 'my $f!ao = "beh";', "normal varnames can't have ! in their name";
eval_dies_ok 'my $fo:o::b:ar = "bla"', "var names can't have colons in their names either";
-#?rakudo skip 'binding to $/ (questionable?)'
#?pugs skip "Can't modify constant item: VObject"
{
class MyMatch {
View
@@ -392,7 +392,7 @@ ok Mu & Mu ~~ Mu, 'Mu & Mu ~~ Mu works';
}
# RT #63126
-#?rakudo skip 'nom regression'
+#?rakudo todo 'nom regression'
#?DOES 2
{
my @a = "foo", "foot";

0 comments on commit 33955a8

Please sign in to comment.