diff options
Diffstat (limited to 't/040-multiple-commands.t')
-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"); |