From 7f367450ed3628666609f26fdff74f2df3b8e577 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 11:05:34 -0500
Subject: add a test for insertion commands

---
 t/020-insertion.t | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 t/020-insertion.t

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