diff options
-rw-r--r-- | t/030-buffer-positions.t | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/t/030-buffer-positions.t b/t/030-buffer-positions.t new file mode 100644 index 0000000..c223139 --- /dev/null +++ b/t/030-buffer-positions.t @@ -0,0 +1,27 @@ +#!perl -T +use strict; +use warnings; +use Test::More tests => 9; +use Language::TECO; + +my $buftext = "this is\nan initial buffer"; +my $te = Language::TECO->new($buftext); +$te->execute("5j"); +is($te->pointer, 5); +$te->execute("bj"); +is($te->pointer, 0); +$te->execute("zj"); +is($te->pointer, length $buftext); +$te->execute("5j"); +$te->execute("-.d"); +is($te->pointer, 0); +is($te->buffer, "is\nan initial buffer"); +$te->execute("1,6d"); +is($te->buffer, "iinitial buffer"); +$te->execute("b,.d"); +is($te->buffer, "initial buffer"); +$te->execute("5j"); +$te->execute(".,zd"); +is($te->buffer, "initi"); +$te->execute("hd"); +is($te->buffer, ""); |