Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[spec] unfudged a few tests, added a test to S29-str/lc.t

git-svn-id: http://svn.pugscode.org/pugs@21167 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 5b1605206b7220f1509ce9931c64c1418a679294 1 parent 333272a
moritz authored
View
3  S03-operators/context.t
@@ -35,7 +35,6 @@ plan 35;
#?rakudo 1 skip '@() should be the same as @($/)'
is(@(), @($/), '@() should be the same as @($/)');
- #?rakudo 1 skip 'zip does not work'
is((@ 1,2 Z 3,4), <1 3 2 4>, '@ operator has proper precedence to change context of zip infix');
}
@@ -60,7 +59,6 @@ plan 35;
my @array = ($a, $b);
is((item $a, $b), @array, 'item($a, $b) is the same as <<$a $b>> in an array');
- #?rakudo 1 skip 'zip is broken'
is(($ 1,2 Z 3,4), [[1,3], [2,4]], '$ operator has proper precendence to change context of zip infix');
}
@@ -87,7 +85,6 @@ plan 35;
# L<S03/Changes to Perl 5 operators/Perl 5's ${...}, @{...}, %{...}, etc>
# Deprecated P5 dereferencing operators:
-#?rakudo skip 'Perl5 dereferencing syntax warnings not implemented yet'
{
my $scalar = 'abcd';
eval_dies_ok('${$scalar}', 'Perl 5 form of ${$scalar} dies');
View
1  S03-operators/repeat.t
@@ -17,7 +17,6 @@ is('ab' x 4, 'abababab', 'string repeat operator works on multiple character');
is(1 x 5, '11111', 'number repeat operator works on number and creates string');
is('' x 6, '', 'repeating an empty string creates an empty string');
is('a' x 0, '', 'repeating zero times produces an empty string');
-#?rakudo skip 'TODO: infix:<x>($str, -1)'
is('a' x -1, '', 'repeating negative times produces an empty string');
#L<S03/Changes to Perl 5 operators/"and xx (which creates a list of repetitions of a list or item)">
View
3  S29-str/lc.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 11;
+plan 12;
# L<S29/Str/lc>
@@ -25,6 +25,7 @@ is(lc('A'..'C'), "a b c", "lowercasing char-range");
{ # test invocant syntax for lc
my $x = "Hello World";
is($x.lc, "hello world", '$x.lc works');
+ is($x, 'Hello World', 'Invocant unchanged');
is("Hello World".lc, "hello world", '"Hello World".lc works');
}
Please sign in to comment.
Something went wrong with that request. Please try again.