diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 18:11:02 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 18:11:02 -0500 |
commit | ac4f96c93b326cdc625a0325c1b1a483558d5012 (patch) | |
tree | 6770518f780674b58dd8711bb4a193533167de54 | |
parent | 0571887725b20bd9e0c354df172fa7b4292871a2 (diff) | |
download | language-teco-ac4f96c93b326cdc625a0325c1b1a483558d5012.tar.gz language-teco-ac4f96c93b326cdc625a0325c1b1a483558d5012.zip |
add a simple test for executing multiple commands in a single execute() call
-rw-r--r-- | t/040-multiple-commands.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/040-multiple-commands.t b/t/040-multiple-commands.t new file mode 100644 index 0000000..b6bd883 --- /dev/null +++ b/t/040-multiple-commands.t @@ -0,0 +1,10 @@ +#!perl -T +use strict; +use warnings; +use Test::More tests => 2; +use Language::TECO; + +my $buftext = "this is\nan initial buffer"; +my $te = Language::TECO->new($buftext); +is($te->execute("5j.="), "5\n", "move + print position"); +is($te->execute("iblah\e0t"), "this blah", "insert + print part of the buffer"); |