Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
rakudo unfudges
  • Loading branch information
moritz committed Nov 20, 2011
1 parent e2b7423 commit 1ec9f11
Show file tree
Hide file tree
Showing 6 changed files with 0 additions and 7 deletions.
1 change: 0 additions & 1 deletion S03-operators/overflow.t
Expand Up @@ -77,7 +77,6 @@ $b = -$a;
$b= $b - 1;
is($b, -(++$a), 'est oder of predecrement in -(++$a)');

#?rakudo skip "Big number issues with div"
{
is(0x80000000 div 1, 0x80000000, "0x80000000 div 1 == 0x80000000");
is(0x80000000 div -1, -0x80000000, "0x80000000 div -1 == -0x80000000");
Expand Down
2 changes: 0 additions & 2 deletions S05-metasyntax/angle-brackets.t
Expand Up @@ -176,7 +176,6 @@ character classes), and those are referenced at the correct spot.

# A leading { indicates code that produces a regex to be
# interpolated into the pattern at that point as a subrule:
#?rakudo skip 'null PMC'
{
ok('abcdef' ~~ /<{'<al' ~ 'pha>'}>/, 'code interpolation');
}
Expand Down Expand Up @@ -223,7 +222,6 @@ character classes), and those are referenced at the correct spot.
{
ok('1./:"{}=-' ~~ /^[<!alpha> .]+$/, '<!alpha> matches non-letter characters');
ok(!('abcdef' ~~ /<!alpha>./), '<!alpha> does not match letter characters');
#?rakudo 2 skip 'no before'
is(+('.2 1' ~~ /<!before 2> \d/), 1, '<!before>');
is +$/.caps, 0, '<!before 2> does not capture';
}
Expand Down
1 change: 0 additions & 1 deletion S05-metasyntax/charset.t
Expand Up @@ -56,7 +56,6 @@ ok( "foo" ~~ /<[f] #`[comment] + [o]>/, 'comment embedded in charset works' );
#?rakudo skip 'large \\x char spec in regex (RT #67122) (noauto)'
ok "\x[10001]" ~~ /<[\x10000..\xEFFFF]>/, 'large \\x char spec';

#?rakudo skip 'RT 71702: lethal reverse range in charset'
#?niecza todo
eval_dies_ok( "'RT 71702' ~~ /<[d..b]>? RT/",
'reverse range in charset is lethal (RT 71702)' );
Expand Down
1 change: 0 additions & 1 deletion S32-array/unshift.t
Expand Up @@ -147,7 +147,6 @@ plan 56;
}

# RT #69548
#?rakudo skip "nom regression: Cannot assign to a readonly variable or a value"
{
my $x = 1;
my @a = ();
Expand Down
1 change: 0 additions & 1 deletion S32-str/split-simple.t
Expand Up @@ -73,7 +73,6 @@ split_test
# => result: 'ab', '3', '4d', '5z'
# (confirmed by perl 5)

#?rakudo skip '<?before>'
#?DOES 2
split_test 'ab34d5z'.split(/<.before \d>/), <ab 3 4d 5z>, 'split with zero-width assertions';

Expand Down
1 change: 0 additions & 1 deletion integration/99problems-11-to-20.t
Expand Up @@ -213,7 +213,6 @@ plan 31;
'We should be able to drop list elements using list comprehension';
}

#?rakudo skip 'array slices'
{
# P17 (*) Split a list into two parts; the length of the first part is given.
#
Expand Down

0 comments on commit 1ec9f11

Please sign in to comment.