1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
#!/usr/bin/perl
use v5.26;
use warnings;
use Test2::V0;
use Tickit::Test;
use Tickit::Widget::Scroller;
use Tickit::Widget::Scroller::Item::Text;
my $win = mk_window;
my $scroller = Tickit::Widget::Scroller->new;
ok( defined $scroller, 'defined $scroller' );
$scroller->push(
my @items = map { Tickit::Widget::Scroller::Item::Text->new( $_ ) }
"The first line",
"Another line in the middle",
"The third line",
);
$scroller->set_window( $win );
flush_tickit;
is_termlog( [ GOTO(0,0),
SETPEN,
PRINT("The first line"),
SETBG(undef),
ERASECH(66),
GOTO(1,0),
SETPEN,
PRINT("Another line in the middle"),
SETBG(undef),
ERASECH(54),
GOTO(2,0),
SETPEN,
PRINT("The third line"),
SETBG(undef),
ERASECH(66),
map { GOTO($_,0), SETBG(undef), ERASECH(80) } 3 .. 24 ],
'Termlog initially' );
is_display( [ "The first line",
"Another line in the middle",
"The third line" ],
'Display initially' );
is( scalar $scroller->line2item( 0 ), 0, 'scalar line2item 0' );
is( [ $scroller->line2item( 0 ) ], [ 0, 0 ], 'line2item 0' );
is( [ $scroller->line2item( 1 ) ], [ 1, 0 ], 'line2item 1' );
is( [ $scroller->line2item( 2 ) ], [ 2, 0 ], 'line2item 2' );
is( [ $scroller->line2item( 3 ) ], [ ], 'line2item 3' );
is( [ $scroller->line2item( -1 ) ], [ ], 'line2item -1' );
is( [ $scroller->line2item( -23 ) ], [ 2, 0 ], 'line2item -23' );
is( $scroller->item2line( 0 ), 0, 'item2line 0' );
is( $scroller->item2line( 0, -1 ), 0, 'item2line 0, -1' );
is( $scroller->item2line( 1 ), 1, 'item2line 1' );
is( $scroller->item2line( 2 ), 2, 'item2line 2' );
is( $scroller->item2line( $items[0] ), 0, 'item2line $items[0]' );
is( $scroller->item2line( $items[1] ), 1, 'item2line $items[1]' );
is( $scroller->item2line( $items[2] ), 2, 'item2line $items[2]' );
is( $scroller->item2line( -1 ), 2, 'item2line -1' );
resize_term( 25, 20 );
flush_tickit;
is_termlog( [ GOTO(0,0),
SETPEN,
PRINT("The first line"),
SETBG(undef),
ERASECH(6),
GOTO(1,0),
SETPEN,
PRINT("Another line in the "),
GOTO(2,0),
SETPEN,
PRINT("middle"),
SETBG(undef),
ERASECH(14),
GOTO(3,0),
SETPEN,
PRINT("The third line"),
SETBG(undef),
ERASECH(6),
map { GOTO($_,0), SETBG(undef), ERASECH(20) } 4 .. 24 ],
'Termlog after narrowing' );
is_display( [ "The first line",
"Another line in the ",
"middle",
"The third line" ],
'Display after narrowing' );
is( [ $scroller->line2item( 0 ) ], [ 0, 0 ], 'line2item 0' );
is( [ $scroller->line2item( 1 ) ], [ 1, 0 ], 'line2item 1' );
is( [ $scroller->line2item( 2 ) ], [ 1, 1 ], 'line2item 2' );
is( [ $scroller->line2item( 3 ) ], [ 2, 0 ], 'line2item 3' );
is( [ $scroller->line2item( 4 ) ], [ ], 'line2item 4' );
is( [ $scroller->line2item( -1 ) ], [ ], 'line2item -1' );
is( [ $scroller->line2item( -22 ) ], [ 2, 0 ], 'line2item -22' );
is( $scroller->item2line( 0 ), 0, 'item2line 0' );
is( $scroller->item2line( 0, -1 ), 0, 'item2line 0, -1' );
is( $scroller->item2line( 1 ), 1, 'item2line 1' );
is( $scroller->item2line( 1, -1 ), 2, 'item2line 1, -1' );
is( $scroller->item2line( 2 ), 3, 'item2line 2' );
is( $scroller->item2line( -1 ), 3, 'item2line -1' );
done_testing;
|
