Merge branch 'master' of git://github.com/perl6/roast

Author: moritz

.gitignore

@@ -1,3 +1,4 @@
 *.rakudo
 *.niecza
 *.pugs
+S32-io/server-ready-flag

S02-lexical-conventions/bom.t

@@ -0,0 +1,6 @@
+use v6;
+use Test;
+
+plan 1;
+
+ok 1, 'can parse a file starting with a byte-order mark';

S02-lexical-conventions/comments.t

@@ -18,6 +18,9 @@ use Test;
         Parens works also
     ) 1, 'multiline embedded comment with #`()';
 
+    # RT #115762
+    eval_lives_ok "#`( foo )", "comment as first and only statement";
+
     eval_lives_ok "2 * 3\n #`<<<\n comment>>>", "multiline comment with <<<";
 
     my $var = #`{ foo bar } 32;
@@ -76,7 +79,7 @@ use Test;
     >>> 1, '#`<<<...>>>';
 }
 
-#?rakudo skip 'nom regression'
+#?rakudo todo 'nom regression'
 {
     eval_lives_ok( q{{
         my $var = \#`((( comment ))) 12;
@@ -103,7 +106,6 @@ use Test;
 
 # I am not sure if this is speced somewhere:
 # comments can be nested
-#?rakudo skip 'nested brackets'
 #?niecza skip 'Possible runaway string'
 {
     is 3, #`(
@@ -126,6 +128,7 @@ use Test;
     # comment() before seeing that I meant #`{ comment within this string.
 
 #?pugs todo 'bug'
+#?rakudo skip 'NYI'
     eval_lives_ok " #`<<\n comment\n # >>\n >> 3",
         'single line comment cannot correctly nested within multiline';
 }

S02-literals/listquote.t

@@ -29,7 +29,6 @@ eval_dies_ok '({:a<1>, :b(2)} <a b c>)', '{...} <...> parsefail';
 ok( ?((1 | 3) < 3), '(...) < 3 no parsefail');
 
 #?pugs todo 'parsing bug'
-#?rakudo todo 'parsing'
 eval_dies_ok '(1 | 3)<3', '()<3 parsefail';
 
 # WRONG: should be parsed as print() < 3

S02-literals/misc-interpolation.t

@@ -63,8 +63,7 @@ is('$world @list[] %hash{} &func()', '$world @list[] %hash{} &func()', 'single q
 is("Hello $world!", "Hello World!", "! is not a part of var names");
 sub list_count (*@args) { +@args }
 is(list_count("@list[]"), 1, 'quoted interpolation gets string context');
-#?niecza todo 'apparently curly brace delimiters DO interfere with closure interpolation'
-is(qq{a{chr 98}c}, 'abc', "curly brace delimiters don't interfere with closure interpolation");
+is(qq{a{chr 98}c}, 'a{chr 98}c', "curly brace delimiters interfere with closure interpolation");
 
 # Quoting constructs
 # The next test will always succeed, but if there's a bug it probably
@@ -73,7 +72,6 @@ is(qq{a{chr 98}c}, 'abc', "curly brace delimiters don't interfere with closure i
 is(Q"abc\\d\\'\/", Q"abc\\d\\'\/", "raw quotation works");
 is(q"abc\\d\"\'\/", Q|abc\d"\'\/|, "single quotation works"); #"
 is(qq"abc\\d\"\'\/", Q|abc\d"'/|, "double quotation works"); #"
-#?rakudo 3 skip 'qa qb and array/hash interpolation'
 #?pugs skip 'parsefail'
 is(qa"$world @list[] %hash{}", Q"$world 1 2 %hash{}", "only interpolate array");
 is(qb"$world \\\"\n\t", "\$world \\\"\n\t", "only interpolate backslash");

S02-literals/quoting.t

@@ -95,7 +95,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
 };
 
 # L<S02/C<Q> forms/:q>
-#?rakudo skip 'Q:q adverbs'
 #?pugs skip 'parsefail'
 { # adverb variation
     my @q = ();
@@ -134,7 +133,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
 };
 
 # L<S02/C<Q> forms/:qq>
-#?rakudo skip 'Q:qq adverbs'
 #?pugs skip 'parsefail'
 { # adverb variation
     my @q = ();
@@ -144,7 +142,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
 };
 
 # L<S02/Interpolating into a single-quoted string/using the \qq>
-#?rakudo skip 'q[..] with variations'
+
 { # \qq[] constructs interpolate in q[]
     my ( @q1, @q2, @q3, @q4 ) = ();
     @q1 = q[$foo \qq[$bar]];
@@ -197,7 +195,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(@q[1], '$bar', '...');
 };
 
-#?rakudo skip 'q:w'
+
 { # adverb variation
     my @q = ();
     @q = (q:w/$foo $bar/);
@@ -206,7 +204,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(@q[1], '$bar', "...");
 };
 
-#?rakudo skip 'q:w'
 { # whitespace sep aration does not break quote constructor
   # L<S02/Whitespace before adverbs/Whitespace is allowed between the "q" and its adverb: q :w /.../.>
     my @q = ();
@@ -216,8 +213,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(@q[1], '$bar', "...");
 };
 
-
-#?rakudo skip 'quoting with adverbs'
 { # qq:w,Interpolating quote constructor with words adverb
   # L<S02/Adverbs on quotes/"Split result on words (no quote protection)">
     my (@q1, @q2) = ();
@@ -231,7 +226,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(~@q2, 'FOO "gorch BAR"', "long form output is the same as the short");
 };
 
-#?rakudo skip 'quoting with adverbs'
 #?niecza todo
 { # qq:ww, interpolating L<S02/Literals/double angles do interpolate>
   # L<S02/Forcing item context/"implicit split" "shell-like fashion">
@@ -260,7 +254,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is <<a $rt65654 z>>.elems, 4, 'interpolate variable with spaces (Texas)';
 }
 
-#?rakudo skip '«...»'
+#?rakudo todo '«...»'
 #?niecza todo
 {
     #L<S02/Forcing item context/"relationship" "single quotes" "double angles">
@@ -288,7 +282,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
 };
 
 # L<S02/Heredocs/Heredocs are no longer written>
-#?rakudo skip 'quoting with adverbs'
 { # qq:to
     my @q = ();
 
@@ -300,11 +293,10 @@ $foo
 FOO
 
     is(+@q, 1, "q:to// is singular");
-    is(@q[0], "blah\nBAR\nblah\nFOO\n", "here doc interpolated");
+    is(@q[0].subst(/\r/, '', :g), "blah\nBAR\nblah\nFOO\n", "here doc interpolated");
 };
 
 # L<S02/Optional whitespace/Heredocs allow optional whitespace>
-#?rakudo skip 'quoting with adverbs'
 { # q:to indented
     my @q = ();
 
@@ -314,18 +306,17 @@ FOO
         FOO
 
     is(+@q, 1, "q:to// is singular, also when indented");
-    is(@q[0], "blah blah\n\$foo\n", "indentation stripped");
+    is(@q[0].subst(/\r/, '', :g), "blah blah\n\$foo\n", "indentation stripped");
 };
 
-#?rakudo skip 'heredocs'
 { # q:heredoc backslash bug
         my @q = q:heredoc/FOO/
 yoink\n
 splort\\n
 FOO
 ;
         is(+@q, 1, "q:heredoc// is singular");
-        is(@q[0], "yoink\\n\nsplort\\n\n", "backslashes");
+        is(@q[0].subst(/\r/, '', :g), "yoink\\n\nsplort\\n\n", "backslashes");
 }
 
 #?pugs skip 'parsefail'
@@ -364,7 +355,6 @@ FOO
     is(@q[0].perl, (p => "moose").perl, ":pair<anglequoted>");
 };
 
-#?rakudo skip '\c97 etc'
 { # weird char escape sequences
     is("\c97", "a", '\c97 is "a"');
     is("\c102oo", "foo", '\c102 is "f", works next to other letters');
@@ -376,7 +366,8 @@ FOO
 
     is("\x41", "A", 'hex interpolation - \x41 is "A"');
     is("\o101", "A", 'octal interpolation - \o101 is also "A"' );
-
+    
+    #?rakudo 3 skip '\c@ etc'
     is("\c@", "\0", 'Unicode code point "@" converts correctly to "\0"');
     is("\cA", chr(1), 'Unicode "A" is #1!');
     is("\cZ", chr(26), 'Unicode "Z" is chr 26 (or \c26)');
@@ -391,20 +382,19 @@ is( q<< <<woot>> >>, ' <<woot>> ', 'nested <<texas>> quotes (RT #66888)' );
 
 # L<S02/Adverbs on quotes/"for user-defined quotes">
 # q:to
-#?rakudo skip 'quoting with adverbs'
 {
     my $t;
     $t = q:to /STREAM/;
 Hello, World
 STREAM
 
-    is $t, "Hello, World\n", "Testing for q:to operator.";
+    is $t.subst(/\r/, '', :g), "Hello, World\n", "Testing for q:to operator.";
 
 $t = q:to /结束/;
 Hello, World
 结束
 
-    is $t, "Hello, World\n", "Testing for q:to operator. (utf8)";
+    is $t.subst(/\r/, '', :g), "Hello, World\n", "Testing for q:to operator. (utf8)";
 }
 
 # Q
@@ -420,7 +410,6 @@ Hello, World
 }
 
 # q:b
-#?rakudo skip 'quoting adverbs'
 #?pugs skip 'parsefail'
 {
     my $t = q:b /\n\n\n/;
@@ -433,34 +422,31 @@ Hello, World
 }
 
 # q:x
-#?rakudo skip 'q:x'
 {
-    my $result = %*VM.perl ~~ /MSWIN32/ ?? "hello\r\n" !! "hello\n";
+    my $result = $*OS ~~ /:i win32/ ?? "hello\r\n" !! "hello\n";
     is q:x/echo hello/, $result, "Testing for q:x operator.";
 }
 # utf8
 
-#?rakudo skip 'q:x'
 {
     # 一 means "One" in Chinese.
     is q:x/echo 一/, "一\n", "Testing for q:x operator. (utf8)";
 }
 
-#?rakudo skip 'qq:x'
 {
     my $world = 'world';
-    is qq:x/echo hello $world/, "hello world\n", 'Testing qq:x operator';
+    ok qq:x/echo hello $world/ ~~ /^'hello world'\n$/, 'Testing qq:x operator';
 }
 
-#?rakudo skip 'q:x assigned to array'
+#?rakudo todo 'q:x assigned to array'
 #?niecza todo ':x'
 #?pugs todo
 {
     my @two_lines = q:x/echo hello ; echo world/;
     is @two_lines, ("hello\n", "world\n"), 'testing q:x assigned to array';
 }
 
-#?rakudo skip 'q:x assigned to array'
+#?rakudo todo 'q:x assigned to array'
 #?niecza todo ':x'
 #?pugs todo
 {
@@ -472,7 +458,6 @@ Hello, World
 
 # L<S02/Adverbs on quotes/"Interpolate % vars">
 # q:h
-#?rakudo skip 'quoting adverbs'
 #?niecza todo
 {
     # Pugs can't parse q:h currently.
@@ -483,7 +468,6 @@ Hello, World
 }
 
 # q:f
-#?rakudo skip 'quoting adverbs'
 #?niecza skip '& escape'
 {
     my sub f { "hello" };
@@ -496,23 +480,20 @@ Hello, World
 }
 
 # q:c
-#?rakudo skip 'quoting adverbs'
 {
     my sub f { "hello" };
     my $t = q:c /{f}, world/;
     is $t, f() ~ ", world", "Testing for q:c operator.";
 }
 
 # q:a
-#?rakudo skip 'quoting adverbs'
 {
     my @t = qw/a b c/;
     my $s = q:a /@t[]/;
     is $s, ~@t, "Testing for q:a operator.";
 }
 
 # q:s
-#?rakudo skip 'quoting adverbs'
 {
     my $s = "someone is laughing";
     my $t = q:s /$s/;
@@ -524,7 +505,6 @@ Hello, World
 }
 
 # multiple quoting modes
-#?rakudo skip 'quoting adverbs'
 {
     my $s = 'string';
     my @a = <arr1 arr2>;

S02-literals/string-interpolation.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 13;
+plan 14;
 
 # L<S02/Closures/"A bare closure also interpolates in double-quotish context.">
 
@@ -56,4 +56,9 @@ line 4
     is "this should $w\</a>", 'this should work</a>', 'backslash after scalar';
 }
 
+# RT #115508
+{
+    is ord("\a"), 7, "alarm"
+}
+
 # vim: ft=perl6

S02-names/pseudo.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 140;
+plan 142;
 
 # I'm not convinced this is in the right place
 # Some parts of this testing (i.e. WHO) seem a bit more S10ish -sorear
@@ -240,6 +240,15 @@ plan 140;
     }
 }
 
+#RT #89706
+#?niecza skip "readonly"
+{
+    $PROCESS::PROGRAM_NAME = "otter";
+    is $*PROGRAM_NAME, "otter", 'existing $* assignable via PROCESS';
+    $PROCESS::SOME_OTHER_VAR = "else";
+    is $*SOME_OTHER_VAR, "else", 'new $* assignable via PROCESS';
+}
+
 # COMPILING - not testable without BEGIN
 
 # DYNAMIC

S02-types/array.t

@@ -253,7 +253,7 @@ my @array2 = ("test", 1, Mu);
                                    "through a variable is run-time error";
   #?pugs todo
   dies_ok { @arr[$minus_one] = 42 }, "assigning to [-1] of a normal array is fatal";
-  #?rakudo skip "binding not yet fatal"
+  #?rakudo todo "binding not yet fatal"
   #?pugs todo
   dies_ok { @arr[$minus_one] := 42 }, "binding [-1] of a normal array is fatal";
 }

S02-types/bag.t

@@ -43,7 +43,6 @@ sub showkv($x) {
     is +$b, 8, '+$bag gives sum of values';
 }
 
-#?rakudo skip ':exists and :delete NYI'
 {
     my $s = bag <a a b foo>;
     is $s<a>:exists, True, ':exists with existing element';