Test eof

eof.p6

#! /usr/bin/env perl6
use v6.d.PREVIEW;

my $proc = Proc::Async.new(
  :w,
  $*EXECUTABLE,
  '-e',
  'loop { last if $*IN.eof; put "Got line " ~ $*IN.get }'
);

start {
  await $proc.ready;
  $proc.put: 'a';
  sleep .5;
  $proc.put: 'b';
  sleep .5;
  $proc.put: 'c';
  sleep .5;
  $proc.close-stdin;
}

start react {
  whenever $proc.stdout.lines {
    say ':', $_
  }
  whenever $proc.stderr {}
}

say 'exitcode ',$proc.start.result.exitcode;