1 files changed, 187 insertions, 0 deletions
diff --git a/t/22unshift-bottom.t b/t/22unshift-bottom.t
new file mode 100644
index 0000000..4e56a46
--- /dev/null
+++ b/t/22unshift-bottom.t
@@ -0,0 +1,187 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use Tickit::Test 0.12;
+
+use Tickit::Widget::Scroller;
+use Tickit::Widget::Scroller::Item::Text;
+
+# TODO: mk_window once Tickit::Test can take a size there too
+my ( $term, $rootwin ) = mk_term_and_window cols => 20, lines => 8;
+my $win = $rootwin->make_sub( 0, 0, 6, 20 );
+
+$rootwin->focus( 7, 0 );
+
+my $scroller = Tickit::Widget::Scroller->new(
+   gravity => "bottom",
+);
+
+$scroller->set_window( $win );
+
+flush_tickit;
+
+is_termlog( [ ( map { GOTO($_,0), SETBG(undef), ERASECH(20) } 0 .. 5 ),
+              GOTO(7,0) ],
+            'Termlog initially' );
+
+is_display( [ ],
+            'Display initially' );
+
+is_cursorpos( 7, 0, 'Cursor position intially' );
+
+$scroller->unshift(
+   Tickit::Widget::Scroller::Item::Text->new( "A line of text" ),
+);
+
+flush_tickit;
+
+is_termlog( [ GOTO(0,0),
+              SETPEN,
+              PRINT("A line of text"),
+              SETBG(undef),
+              ERASECH(6),
+              GOTO(7,0) ],
+            'Termlog after unshift' );
+
+is_display( [ [TEXT("A line of text")] ],
+            'Display after unshift' );
+
+is_cursorpos( 7, 0, 'Cursor position after unshift' );
+
+$scroller->unshift( reverse
+   map { Tickit::Widget::Scroller::Item::Text->new( "Another line $_" ) } 1 .. 4,
+);
+
+flush_tickit;
+
+is_termlog( [ SETBG(undef),
+              SCROLLRECT(0,0,6,20, -4,0),
+              GOTO(0,0),
+              SETPEN,
+              PRINT("Another line 4"),
+              SETBG(undef),
+              ERASECH(6),
+              GOTO(1,0),
+              SETPEN,
+              PRINT("Another line 3"),
+              SETBG(undef),
+              ERASECH(6),
+              GOTO(2,0),
+              SETPEN,
+              PRINT("Another line 2"),
+              SETBG(undef),
+              ERASECH(6),
+              GOTO(3,0),
+              SETPEN,
+              PRINT("Another line 1"),
+              SETBG(undef),
+              ERASECH(6),
+              GOTO(7,0) ],
+            'Termlog after unshift 4' );
+
+is_display( [ [TEXT("Another line 4")],
+              [TEXT("Another line 3")],
+              [TEXT("Another line 2")],
+              [TEXT("Another line 1")],
+              [TEXT("A line of text")] ],
+            'Display after unshift 4' );
+
+is_cursorpos( 7, 0, 'Cursor position after unshift 4' );
+
+$scroller->unshift( Tickit::Widget::Scroller::Item::Text->new( "An item of text that wraps" ) );
+
+flush_tickit;
+
+is_termlog( [ SETBG(undef),
+              SCROLLRECT(0,0,6,20, -1,0),
+              GOTO(0,0),
+              SETPEN,
+              PRINT("wraps"),
+              SETBG(undef),
+              ERASECH(15),
+              GOTO(7,0) ],
+            'Termlog after unshift scroll' );
+
+is_display( [ [TEXT("wraps")],
+              [TEXT("Another line 4")],
+              [TEXT("Another line 3")],
+              [TEXT("Another line 2")],
+              [TEXT("Another line 1")],
+              [TEXT("A line of text")] ],
+            'Display after unshift scroll' );
+
+is_cursorpos( 7, 0, 'Cursor position after unshift scroll' );
+
+$scroller->unshift( reverse
+   map { Tickit::Widget::Scroller::Item::Text->new( "Another line $_" ) } 5 .. 10,
+);
+
+flush_tickit;
+
+is_termlog( [],
+            'Termlog after unshift 6' );
+
+is_display( [ [TEXT("wraps")],
+              [TEXT("Another line 4")],
+              [TEXT("Another line 3")],
+              [TEXT("Another line 2")],
+              [TEXT("Another line 1")],
+              [TEXT("A line of text")] ],
+            'Display after unshift 6' );
+
+is_cursorpos( 7, 0, 'Cursor position after unshift 6' );
+
+$scroller->set_window( undef );
+
+$scroller->unshift( Tickit::Widget::Scroller::Item::Text->new( "A line while offscreen" ) );
+
+$scroller->set_window( $win );
+
+flush_tickit;
+drain_termlog;
+
+is_display( [ [TEXT("wraps")],
+              [TEXT("Another line 4")],
+              [TEXT("Another line 3")],
+              [TEXT("Another line 2")],
+              [TEXT("Another line 1")],
+              [TEXT("A line of text")] ],
+            'Display after unshift while offscreen' );
+
+$scroller->scroll_to_bottom;
+
+flush_tickit;
+drain_termlog;
+
+is_display( [ [TEXT("wraps")],
+              [TEXT("Another line 4")],
+              [TEXT("Another line 3")],
+              [TEXT("Another line 2")],
+              [TEXT("Another line 1")],
+              [TEXT("A line of text")] ],
+            'Display after scroll_to_bottom' );
+
+is_cursorpos( 7, 0, 'Cursor position after unshift scroll_to_bottom' );
+
+$scroller->unshift(
+   Tickit::Widget::Scroller::Item::Text->new( "Unseen line" ),
+);
+
+is_termlog( [],
+            'Termlog empty after unshift at head' );
+
+is_display( [ [TEXT("wraps")],
+              [TEXT("Another line 4")],
+              [TEXT("Another line 3")],
+              [TEXT("Another line 2")],
+              [TEXT("Another line 1")],
+              [TEXT("A line of text")] ],
+            'Display after unshift at head' );
+
+is_cursorpos( 7, 0, 'Cursor position after unshift at head' );
+
+done_testing;