diff --git a/S02-literals/autoref.t b/S02-literals/autoref.t
index 69cce8c0e9..052afe8d32 100644
--- a/S02-literals/autoref.t
+++ b/S02-literals/autoref.t
@@ -28,6 +28,8 @@ plan 57;
}
# Explicit referentiation of arrays in assignment
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my @array = ;
my $ref = \@array;
@@ -46,6 +48,8 @@ plan 57;
}
# Explicit referentiation of hashes in assignment
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my %hash = (a => 1, b => 2, c => 3);
my $ref = \%hash;
@@ -66,6 +70,8 @@ plan 57;
}
# Explicit referentiation of arrays in assignment to an array element
+#?rakudo 1 skip "parse error"
+#?DOES 3
{
my @array = ;
my @other;
@@ -87,6 +93,8 @@ plan 57;
}
# Explicit referentiation of hashes in assignment to an array element
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my %hash = (a => 1, b => 2, c => 3);
my @other;
@@ -107,6 +115,8 @@ plan 57;
}
# Explicit referentiation of arrays in assignment to a hash element
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my @array = ;
my %other;
@@ -127,6 +137,8 @@ plan 57;
}
# Explicit referentiation of hashes in assignment to a hash element
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my %hash = (a => 1, b => 2, c => 3);
my %other;
@@ -146,6 +158,8 @@ plan 57;
}
# Explicit referentiation of arrays in pair creation with key => ...
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my @array = ;
my $pair = (key => \@array);
@@ -164,6 +178,8 @@ plan 57;
}
# Explicit referentiation of hashes in pair creation with key => ...
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my %hash = (a => 1, b => 2, c => 3);
my $pair = (key => \%hash);
@@ -182,6 +198,8 @@ plan 57;
}
# Explicit referentiation of arrays in pair creation with :key(...)
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my @array = ;
my $pair = (:key(\@array));
@@ -199,6 +217,8 @@ plan 57;
is +$pair.value.values, 3, '(:key(%hash)) works (2)';
}
+#?rakudo 1 skip "parse error"
+#?DOES 2
# Explicit referentiation of hashes in pair creation with :key(...)
{
my %hash = (a => 1, b => 2, c => 3);
@@ -255,6 +275,8 @@ plan 57;
}
# Implicit referentiation of array literals in pair creation with ... => "value"
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my $pair = ( => "value");
@@ -263,6 +285,8 @@ plan 57;
}
# Arrayref literals in pair creation with ... => "value"
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my $pair = ([] => "value");
@@ -271,6 +295,8 @@ plan 57;
}
# Hashref literals in pair creation with ... => "value"
+#?rakudo 1 skip "parse error"
+#?DOES 1
{
my $pair = ({ a => 1, b => 2 } => "value");
diff --git a/S02-literals/hex_chars.t b/S02-literals/hex_chars.t
index 9a26f13d7f..366c3110e9 100644
--- a/S02-literals/hex_chars.t
+++ b/S02-literals/hex_chars.t
@@ -4,18 +4,22 @@ use Test;
plan 4;
#L
-my %unicode = (
- 'a' => "\x61",
- 'æ' => "\xE6",
- '喃' => "\x5583",
- '𨮁' => "\x28B81",
-);
+#?rakudo skip "parse error"
+#?DOES 4
+{
+ my %unicode = (
+ 'a' => "\x61",
+ 'æ' => "\xE6",
+ '喃' => "\x5583",
+ '𨮁' => "\x28B81",
+ );
-for %unicode.kv -> $literal, $codepoint {
- is(
- $codepoint,
- $literal,
- 'Does a character codepoint (\x..) evaluate to the same thing as its literal?'
- );
+ for %unicode.kv -> $literal, $codepoint {
+ is(
+ $codepoint,
+ $literal,
+ 'Does a character codepoint (\x..) evaluate to the same thing as its literal?'
+ );
+ }
}
diff --git a/S04-statements/try.t b/S04-statements/try.t
index 5e4b461f54..9fcd32f326 100644
--- a/S04-statements/try.t
+++ b/S04-statements/try.t
@@ -20,6 +20,8 @@ plan 25;
is ~@array, "42", '@array = try {...} worked (2)';
}
+#?rakudo skip "parse error"
+#?DOES 2
{
my @array = try { (42,) };
is +@array, 1, '@array = try {...} worked (3)';
diff --git a/S29-str/append.t b/S29-str/append.t
index 4a3fae43bd..0fe7000d7a 100644
--- a/S29-str/append.t
+++ b/S29-str/append.t
@@ -2,12 +2,8 @@ use v6-alpha;
use Test;
-=begin description
-
-String appending with ~ operator
-L
-
-=end description
+# String appending with ~ operator
+# L
plan 4;
diff --git a/S29-str/uc.t b/S29-str/uc.t
index 0e3a31c8ab..076c740e49 100644
--- a/S29-str/uc.t
+++ b/S29-str/uc.t
@@ -10,6 +10,7 @@ force_todo 10;
is(uc("Hello World"), "HELLO WORLD", "simple");
is(uc(""), "", "empty string");
#?rakudo skip "unicode"
+#?DOES 3
{
is(uc("åäö"), "ÅÄÖ", "some finnish non-ascii chars");
is(uc("äöü"), "ÄÖÜ", "uc of German Umlauts");