diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:05:45 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:05:45 -0500 |
commit | 3335c215c5d859bd3f48ba99e760564f074ce2ec (patch) | |
tree | 85e373759b0896c6631f985f7b01b28834fb0e87 | |
parent | 7f367450ed3628666609f26fdff74f2df3b8e577 (diff) | |
download | language-teco-3335c215c5d859bd3f48ba99e760564f074ce2ec.tar.gz language-teco-3335c215c5d859bd3f48ba99e760564f074ce2ec.zip |
add a test for deletion commands
-rw-r--r-- | t/021-deletion.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/t/021-deletion.t b/t/021-deletion.t new file mode 100644 index 0000000..f7beed5 --- /dev/null +++ b/t/021-deletion.t @@ -0,0 +1,22 @@ +#!perl -T +use strict; +use warnings; +use Test::More tests => 8; +use Language::TECO; + +my $buftext = "this is\nan initial buffer"; +my $te = Language::TECO->new($buftext); +$te->execute("10j"); +$te->execute("d"); +is($te->buffer, "this is\naninitial buffer"); +is($te->pointer, 10); +$te->execute("-d"); +is($te->buffer, "this is\nainitial buffer"); +is($te->pointer, 9); +$te->execute("16j"); +$te->execute("3d"); +is($te->buffer, "this is\nainitialffer"); +is($te->pointer, 16); +$te->execute("-11d"); +is($te->buffer, "this ffer"); +is($te->pointer, 5); |