Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

get rid of some unused (and partially wrong) lexicals; fudge for-scop…

…e.t for rakudo
  • Loading branch information...
commit 632ffb7e3ce8ab95140a25871fd9494d35a97dbd 1 parent 91a8a1c
@moritz moritz authored
View
4 S04-statements/for-scope.t
@@ -4,7 +4,7 @@ use Test;
# L<S04/The C<for> statement>
-plan 15;
+plan 16;
# Implicit $_
for 1, 2 {
@@ -45,6 +45,7 @@ for 1, 2 -> $_ {
is(@inside.join, "123", "lexical array properly initialized, round $_, two explicit \$_s");
}
+#?rakudo skip 'wrong redeclaration error, RT 84438'
{
sub respect(*@a) {
my @b = ();
@@ -55,6 +56,7 @@ for 1, 2 -> $_ {
is respect(1,2,3), 3, 'a for loop inside a sub loops over each of the elements';
is respect([1,2,3]), 1, '... but only over one array ref';
is respect( my @a = 1, 2, 3 ), 3, '...and when the array is declared in the argument list';
+ is @a.join(',', '1,2,3', 'and the array get the right values';
}
# vim: ft=perl6
View
3  S04-statements/while.t
@@ -72,8 +72,7 @@ plan 9;
#?mildew skip 1
# L<S04/Statement parsing/keywords require whitespace>
{
- my $i = 0;
- eval_dies_ok('while($i < 5) { $i++; }',
+ eval_dies_ok('my $i = 1; while($i < 5) { $i++; }',
'keyword needs at least one whitespace after it');
}
View
7 S05-metasyntax/changed.t
@@ -30,10 +30,9 @@ plan 12;
# The \A, \Z, and \z metacharacters are gone.
{
- my $str = "abc\ndef";
- eval_dies_ok('$str ~~ /\A/', '\\A is gone');
- eval_dies_ok('$str ~~ /\Z/', '\\Z is gone');
- eval_dies_ok('$str ~~ /\z/', '\\z is gone');
+ eval_dies_ok('/\A/', '\\A is gone');
+ eval_dies_ok('/\Z/', '\\Z is gone');
+ eval_dies_ok('/\z/', '\\z is gone');
}
# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.