#!/usr/bin/env perl

use strict;
use warnings;

use IO::Prompt::Tiny qw(prompt);

my $input = prompt('Enter: ', 50);

print "$input\n";

##</code><code>##

use Test::More;

use Capture::Tiny qw(capture);

my ($stdout, $stderr, $exit) = capture {
    local $ENV{'PERL_MM_USE_DEFAULT'} = 1;
    system('/usr/bin/env', 'perl', './mytest.pl');
};

ok 0 == $exit, 'Clean exit code.';
like $stderr, qr/^\QIs interactive? No/, 'Detected non-interactive mode.';
is $stdout, "Enter:  [50] 50\n50\n", 'Correct output.';