p6.p6

use Test;
plan 1;

subtest '.t returns True for TTY' => {
    plan 1;
    my $tt = shell :out, :err, 'tty';
    if $tt and (my $path = $tt.out.slurp(:close).trim)
      and $path ne 'not a tty' {
        my $fh will leave {.close} = $path.IO.open;
        is-deeply $fh.eof, False, 'unread-from TTY handle .eof is False';
    }
    else {
        skip 'could not figure out how to get a TTY handle';
    }
}