view release on metacpan or  search on metacpan

t/is_interactive.t  view on Meta::CPAN

    {
        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();
    }
}