test Proc::Async::Timeout with my code

6-proc-async-hang.t

# @gfldex

use Test;

use Proc::Async::Timeout;

use Mi6::Helper;

my $timeout = 10;
dies-ok {
    my $s = Proc::Async.new(
        run "sbin/get-response", "file=some-file"
    );
    $s.stdout.lines.tap: { .say if .lc.contains(any <some-file>) }
    $s.stderr.tap: { Nil }

    await $s.start: timeout => $timeout;

    CATCH {
        when X::Proc::Async::Timeout {
            say "caught: ", .^name;
            say "reporting: ", .Str;
        }
        when X::Promise::Broken ^ X::Proc::Async::Timeout {
            say "something else went wrong";
        }
    }

    # OUTPUT:
    # cought: X::Proc::Async::Timeout+{X::Promise::Broken}
    # reporting: ⟨sleep⟩ timed out after 2 seconds.

}, " run without 'force' option for a missing hidden file"