Test to cover RT #123888.

Raku · Nov 5, 2015 · dd6a85f · dd6a85f
1 parent e108d9d
commit dd6a85f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S16-filehandles/argfiles.t b/S16-filehandles/argfiles.t
@@ -4,7 +4,7 @@ use Test;
 use lib 't/spec/packages';
 use Test::Util;
 
-plan 11;
+plan 12;
 
 sub create-temporary-file {
     my $filename = $*TMPDIR ~ '/tmp.' ~ $*PID ~ '-' ~ time;
@@ -78,4 +78,8 @@ $output = Test::Util::run("@*ARGS = '$tmp-file-name'; .say for lines()", "foo\nb
 
 is-deeply @lines, [<one two three>], 'Changing @*ARGS before calling things on $*ARGFILES should open the new file';
 
+# RT #123888
+$output = Test::Util::run('$*IN.nl-in = "+"; say get() eq "A";', "A+B+C+");
+is $output, "True\n", 'Can change $*IN.nl-in and it has effect';
+
 $tmp-file-name.IO.unlink;