From ad82f647a16c45719e81d190164f94e9348013e3 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 11:28:04 -0500
Subject: add a test for special buffer positions

---
 t/030-buffer-positions.t | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 t/030-buffer-positions.t

diff --git a/t/030-buffer-positions.t b/t/030-buffer-positions.t
new file mode 100644
index 0000000..c223139
--- /dev/null
+++ b/t/030-buffer-positions.t
@@ -0,0 +1,27 @@
+#!perl -T
+use strict;
+use warnings;
+use Test::More tests => 9;
+use Language::TECO;
+
+my $buftext = "this is\nan initial buffer";
+my $te = Language::TECO->new($buftext);
+$te->execute("5j");
+is($te->pointer, 5);
+$te->execute("bj");
+is($te->pointer, 0);
+$te->execute("zj");
+is($te->pointer, length $buftext);
+$te->execute("5j");
+$te->execute("-.d");
+is($te->pointer, 0);
+is($te->buffer, "is\nan initial buffer");
+$te->execute("1,6d");
+is($te->buffer, "iinitial buffer");
+$te->execute("b,.d");
+is($te->buffer, "initial buffer");
+$te->execute("5j");
+$te->execute(".,zd");
+is($te->buffer, "initi");
+$te->execute("hd");
+is($te->buffer, "");
-- 
cgit v1.2.3-54-g00ecf