iselect/t/10-iselect.t

#!/usr/bin/perl
use strict;
use warnings;

my $debug = shift @ARGV;

use Test::More tests => 3;
use Data::Dump qw/dump/;
use blib;

BEGIN {
        use_ok('Term::ISelect');
}

ok( my $iselect = Term::ISelect->new({
        lines => [
                'first line',
                '{s}second selectable line',
                '',
                'last line',
        ],
        debug => $debug,
}), 'new' );
isa_ok( $iselect, 'Term::ISelect' );

1	dpavlin	13	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = shift @ARGV;
6
7			use Test::More tests => 3;
8			use Data::Dump qw/dump/;
9			use blib;
10
11			BEGIN {
12			use_ok('Term::ISelect');
13			}
14
15			ok( my $iselect = Term::ISelect->new({
16			lines => [
17			'first line',
18			'{s}second selectable line',
19			'',
20			'last line',
21			],
22			debug => $debug,
23			}), 'new' );
24			isa_ok( $iselect, 'Term::ISelect' );
25