Permalink
Browse files

[spectest] A little fudging for Rakudo.

git-svn-id: http://svn.pugscode.org/pugs@20340 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 1a3b0cc commit dde9bc4a3ae854ca183ed23f022f9cc23adada45 jnthn committed May 1, 2008
Showing with 47 additions and 18 deletions.
  1. +26 −0 S02-literals/autoref.t
  2. +16 −12 S02-literals/hex_chars.t
  3. +2 −0 S04-statements/try.t
  4. +2 −6 S29-str/append.t
  5. +1 −0 S29-str/uc.t
View
@@ -28,6 +28,8 @@ plan 57;
}
# Explicit referentiation of arrays in assignment
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my @array = <a b c>;
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 = <a b c>;
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 = <a b c>;
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 = <a b c>;
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 = <a b c>;
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 = (<a b c> => "value");
@@ -263,6 +285,8 @@ plan 57;
}
# Arrayref literals in pair creation with ... => "value"
+#?rakudo 1 skip "parse error"
+#?DOES 2
{
my $pair = ([<a b c>] => "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");
View
@@ -4,18 +4,22 @@ use Test;
plan 4;
#L<S02/Literals/"Characters indexed by hex numbers">
-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?'
+ );
+ }
}
View
@@ -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)';
View
@@ -2,12 +2,8 @@ use v6-alpha;
use Test;
-=begin description
-
-String appending with ~ operator
-L<S03/Changes to Perl 5 operators/string concatenation becomes stitching>
-
-=end description
+# String appending with ~ operator
+# L<S03/Changes to Perl 5 operators/string concatenation becomes stitching>
plan 4;
View
@@ -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");

0 comments on commit dde9bc4

Please sign in to comment.