There is a related test in roast/ S32-io/io-handle.t that tests that IO
flushes when it goes out of scope.
rakudo-parrot still doesn't do that:
10:57 r: "asdf".IO.open(:w).print("24"); say slurp "asdf";
10:57 rakudo-jvm 299d70, rakudo-moar 299d70: OUTPUT«24»
10:57 ..rakudo-parrot 299d70: OUTP
On Tue Oct 19 13:47:36 2010, Solomon wrote:
> my $file = open "test.txt", :w;
>
> for 1..1000 {
> $file.say: sprintf("This is a test
>%7d", $_);
> }
>
>
> # end of text.txt after executing this:
>
> This is a test980
> This is a test
# New Ticket Created by Solomon Foster
# Please include the string: [perl #78454]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=78454 >
my $file = open "test.txt", :w;
for 1..1000 {
$file.say: sprintf("This is a test