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
|
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Test::More;
use Test::Refcount;
use Tickit::Test;
use Tickit::Widget::Static;
use Tickit::Widget::ScrollBox;
my $win = mk_window;
my $static = Tickit::Widget::Static->new(
text => join "\n", map { "Content on line $_" } 1 .. 100
);
my $widget = Tickit::Widget::ScrollBox->new;
ok( defined $widget, 'defined $widget' );
is_oneref( $widget, '$widget has refcount 1 initially' );
$widget->add( $static );
is_oneref( $widget, '$widget has refcount 1 after adding child' );
is( $widget->lines, 100, '$widget wants 100 lines' );
is( $widget->cols, 20, '$widget wants 20 cols' );
my $vextent = $widget->vextent;
ok( defined $vextent, '$widget has ->vextent' );
$widget->set_window( $win );
ok( defined $static->window, '$static has window after $widget->set_window' );
is( $static->window->top, 0, '$static window starts on line 0' );
is( $static->window->left, 0, '$static window starts on column 0' );
is( $static->window->lines, 100, '$static given 100 line window' );
is( $static->window->cols, 79, '$static given 79 column window' );
is( $vextent->total, 100, '$vextent->total is 100' );
is( $vextent->viewport, 25, '$vextent->viewport is 25' );
is( $vextent->start, 0, '$vextent->start is 0' );
flush_tickit;
is_display( [ [TEXT("Content on line 1"), BLANK(62),
TEXT(" ",rv=>1)],
( map +[TEXT("Content on line $_"), BLANK(63-length$_),
TEXT(" ",bg=>4) ], 2 .. 7 ),
( map +[TEXT("Content on line $_"), BLANK(63-length$_),
TEXT("║",fg=>4) ], 8 .. 24 ),
[TEXT("Content on line 25"), BLANK(61),
TEXT("\x{25BE}",rv=>1)] ],
'Display initially' );
$widget->scroll( +10 );
flush_tickit;
is( $static->window->top, -10, '$static window starts on line -10 after ->scroll +10' );
is( $vextent->start, 10, '$vextent->start is now 10 after ->scroll +10' );
is_display( [ [TEXT("Content on line 11"), BLANK(61),
TEXT("\x{25B4}",rv=>1)],
( map +[TEXT("Content on line $_"), BLANK(63-length$_),
TEXT("║",fg=>4) ], 12 .. 13 ),
( map +[TEXT("Content on line $_"), BLANK(63-length$_),
TEXT(" ",bg=>4) ], 14 .. 19 ),
( map +[TEXT("Content on line $_"), BLANK(63-length$_),
TEXT("║",fg=>4) ], 20 .. 34 ),
[TEXT("Content on line 35"), BLANK(61),
TEXT("\x{25BE}",rv=>1)] ],
'Display after scroll +10' );
$vextent->scroll_to( 25 );
flush_tickit;
is( $static->window->top, -25, '$static window starts on line -25 after ->scroll_to 25' );
is( $vextent->start, 25, '$vextent->start is now 25 after ->scroll_to 25' );
is_display( [ [TEXT("Content on line 26"), BLANK(61),
TEXT("\x{25B4}",rv=>1)],
( map +[TEXT("Content on line $_"), BLANK(63-length$_),
TEXT("║",fg=>4) ], 27 .. 32 ),
( map +[TEXT("Content on line $_"), BLANK(63-length$_),
TEXT(" ",bg=>4) ], 33 .. 38 ),
( map +[TEXT("Content on line $_"), BLANK(63-length$_),
TEXT("║",fg=>4) ], 39 .. 49 ),
[TEXT("Content on line 50"), BLANK(61),
TEXT("\x{25BE}",rv=>1)] ],
'Display after $vextent->scroll_to 25' );
is_oneref( $widget, '$widget has refcount 1 at EOF' );
done_testing;
|
