diff options
Diffstat (limited to 't/20push-bottom.t')
-rw-r--r-- | t/20push-bottom.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/20push-bottom.t b/t/20push-bottom.t index 4185ac3..27415aa 100644 --- a/t/20push-bottom.t +++ b/t/20push-bottom.t @@ -1,9 +1,9 @@ #!/usr/bin/perl -use strict; +use v5.26; use warnings; -use Test::More; +use Test2::V0; use Tickit::Test 0.12; @@ -33,10 +33,14 @@ is_display( [ ], is_cursorpos( 7, 0, 'Cursor position intially' ); +is( scalar $scroller->items, 0, '$scroller->items is 0 before ->push' ); + $scroller->push( Tickit::Widget::Scroller::Item::Text->new( "A line of text" ), ); +is( scalar $scroller->items, 1, '$scroller->items is 1 after ->push' ); + flush_tickit; is_termlog( [ GOTO(0,0), |