diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:05:34 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:05:34 -0500 |
commit | 7f367450ed3628666609f26fdff74f2df3b8e577 (patch) | |
tree | 0df1d0c6a3172161047133e2b9531acfed7511e6 /t | |
parent | 72b41860244cea8901109e52ae79a0604e8309a5 (diff) | |
download | language-teco-7f367450ed3628666609f26fdff74f2df3b8e577.tar.gz language-teco-7f367450ed3628666609f26fdff74f2df3b8e577.zip |
add a test for insertion commands
Diffstat (limited to 't')
-rw-r--r-- | t/020-insertion.t | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/020-insertion.t b/t/020-insertion.t new file mode 100644 index 0000000..6b19430 --- /dev/null +++ b/t/020-insertion.t @@ -0,0 +1,19 @@ +#!perl -T +use strict; +use warnings; +use Test::More tests => 6; +use Language::TECO; + +my $buftext = "this is\nan initial buffer"; +my $te = Language::TECO->new; +$te->execute("i$buftext\e"); +is($te->buffer, $buftext); +is($te->pointer, length $buftext); +$te->execute("4j"); +$te->execute("65i"); +is($te->buffer, substr($buftext, 0, 4) . chr(65) . substr($buftext, 4)); +is($te->pointer, 5); +$te->execute("10c"); +$te->execute("i12345\e"); +is($te->buffer, "thisA is\nan ini12345tial buffer"); +is($te->pointer, 20); |