use 5.010;
use warnings;
use Test::More 'no_plan';

use IO::Prompter;

local *ARGV;
open *ARGV, '<', \<<END_INPUT or die $!;
Line 1
Line 2
END_INPUT

my $result = prompt "Enter line 1", -lt0v;
is $result, "Line 1\n"  => '-l effective';
ok !ref($result)        => '-v effective';