From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DCONWAY / IO-Prompter-0.005002 / t / bundled.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

              
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';