1 files changed, 16 insertions, 0 deletions
diff --git a/t/010-buffer-movement.t b/t/010-buffer-movement.t
new file mode 100644
index 0000000..565cae8
--- /dev/null
+++ b/t/010-buffer-movement.t
@@ -0,0 +1,16 @@
+#!perl -T
+use strict;
+use warnings;
+use Test::More tests => 3;
+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("2c");
+is($te->pointer, 7);
+$te->execute("r");
+is($te->pointer, 6);
+$te->execute("1l");
+is($te->pointer, 8);