diff options
Diffstat (limited to 't/21shift-top.t')
-rw-r--r-- | t/21shift-top.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/21shift-top.t b/t/21shift-top.t index f40ebe6..5c57476 100644 --- a/t/21shift-top.t +++ b/t/21shift-top.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; @@ -46,10 +46,14 @@ is_display( [ [TEXT("Existing line 1")], is_cursorpos( 7, 0, 'Cursor position intially' ); +is( scalar $scroller->items, 20, '$scroller->items is 20 before ->shift' ); + my ( $item ) = $scroller->shift; isa_ok( $item, "Tickit::Widget::Scroller::Item::Text" ); +is( scalar $scroller->items, 19, '$scroller->items is 19 after ->shift' ); + flush_tickit; is_termlog( [ SETBG(undef), |