#!/usr/bin/perl -w

use Test::More 'no_plan';

use IO::Interactive qw( is_interactive );

# Tests which depend on not being connected to a terminal
SKIP: {
    skip "connected to a terminal", 2 if -t *STDIN && -t *STDOUT;

    ok !is_interactive();
    ok !is_interactive(*STDOUT);
}


# Tests which depend on being connected to a terminal.
SKIP: {
    skip "not connected to a terminal", 7 unless -t *STDIN && -t *STDOUT;

    ok is_interactive();
    ok is_interactive(*STDOUT);

    {
        ok open my $manifest_fh, '<', "MANIFEST";  # any ol file will do.
        ok !is_interactive($manifest_fh);

        my $old_fh = select $manifest_fh;
        ok !is_interactive(), 'defaults to selected filehandle';
        select $old_fh;
    }

    {
        local @ARGV = qw(-);
    
        ok is_interactive();
        
        @ARGV = (1,2,3);
        ok is_interactive();
    }
}