diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:28:04 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:28:04 -0500 |
commit | ad82f647a16c45719e81d190164f94e9348013e3 (patch) | |
tree | 0dc91a7bb6b1f6bf93786006e27304287f5d7ccb /t | |
parent | 3335c215c5d859bd3f48ba99e760564f074ce2ec (diff) | |
download | language-teco-ad82f647a16c45719e81d190164f94e9348013e3.tar.gz language-teco-ad82f647a16c45719e81d190164f94e9348013e3.zip |
add a test for special buffer positions
Diffstat (limited to 't')
-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, ""); |