From ac4f96c93b326cdc625a0325c1b1a483558d5012 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 24 May 2008 18:11:02 -0500
Subject: add a simple test for executing multiple commands in a single
 execute() call

---
 t/040-multiple-commands.t | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 t/040-multiple-commands.t

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");
-- 
cgit v1.2.3