1 files changed, 17 insertions, 9 deletions

diff --git a/t/030-buffer-positions.t b/t/030-buffer-positions.t
index c223139..0f468b5 100644
--- a/t/030-buffer-positions.t
+++ b/t/030-buffer-positions.t
@@ -7,21 +7,29 @@ use Language::TECO;
 my $buftext = "this is\nan initial buffer";
 my $te = Language::TECO->new($buftext);
 $te->execute("5j");
-is($te->pointer, 5);
+is($te->pointer, 5, "buffer position after absolute positioning");
 $te->execute("bj");
-is($te->pointer, 0);
+is($te->pointer, 0,
+   "buffer position after moving to the beginning of the buffer");
 $te->execute("zj");
-is($te->pointer, length $buftext);
+is($te->pointer, length $buftext,
+   "buffer position after moving to the end of the buffer");
 $te->execute("5j");
 $te->execute("-.d");
-is($te->pointer, 0);
-is($te->buffer, "is\nan initial buffer");
+is($te->pointer, 0,
+   "buffer position after deleting everything before the pointer");
+is($te->buffer, "is\nan initial buffer",
+   "buffer contents after deleting everything before the pointer");
 $te->execute("1,6d");
-is($te->buffer, "iinitial buffer");
+is($te->buffer, "iinitial buffer",
+   "buffer contents after deleting an absolute range");
 $te->execute("b,.d");
-is($te->buffer, "initial buffer");
+is($te->buffer, "initial buffer",
+   "buffer contents after deleting from the beginning to the current position");
 $te->execute("5j");
 $te->execute(".,zd");
-is($te->buffer, "initi");
+is($te->buffer, "initi",
+   "buffer contents after deleting from the current position to the end");
 $te->execute("hd");
-is($te->buffer, "");
+is($te->buffer, "",
+   "buffer contents after deleting the entire buffer (position 'h')");