$fh.lines if the file has no trailing newline (RT #112130)

Raku · Mar 30, 2012 · 1fa3c37 · 1fa3c37
1 parent 91d1b92
commit 1fa3c37
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/S16-filehandles/io.t b/S16-filehandles/io.t
@@ -13,7 +13,7 @@ I/O tests
 
 =end pod
 
-plan 83;
+plan 84;
 
 #?pugs emit if $*OS eq "browser" {
 #?pugs emit   skip_rest "Programs running in browsers don't have access to regular IO.";
@@ -258,6 +258,17 @@ $out.close;
 }
 unlink($filename);
 
+# RT #112130
+{
+    $out = open($filename, :w);
+    $out.print('blarg');
+    $out.close;
+    my $in = open($filename);
+    is $in.lines.join, 'blarg', 'can use .lines on a file without trailing newline';
+    $in.close;
+    unlink $filename;
+}
+
 done;
 
 # vim: ft=perl6