add explanations for tests

6 files changed, 58 insertions, 35 deletions

diff --git a/t/001-init.t b/t/001-init.t
index 094aed9..adc0ac9 100644
--- a/t/001-init.t
+++ b/t/001-init.t
@@ -6,10 +6,10 @@ use Language::TECO;
 
 my $te = Language::TECO->new;
 isa_ok($te, 'Language::TECO');
-is($te->buffer, '');
-is($te->pointer, 0);
+is($te->buffer, '', "initial buffer contents");
+is($te->pointer, 0, "initial buffer position");
 
 my $buftext = "this is\nan initial buffer";
 my $buf_te = Language::TECO->new($buftext);
-is($buf_te->buffer, $buftext);
-is($buf_te->pointer, 0);
+is($buf_te->buffer, $buftext, "initial buffer contents when set");
+is($buf_te->pointer, 0, "initial buffer position when contents were set");
diff --git a/t/010-buffer-movement.t b/t/010-buffer-movement.t
index 3c2497f..a147463 100644
--- a/t/010-buffer-movement.t
+++ b/t/010-buffer-movement.t
@@ -7,10 +7,10 @@ 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, "position after 'j' command");
 $te->execute("2c");
-is($te->pointer, 7);
+is($te->pointer, 7, "position after 'c' command");
 $te->execute("r");
-is($te->pointer, 6);
+is($te->pointer, 6, "position after 'r' command");
 $te->execute("1l");
-is($te->pointer, 8);
+is($te->pointer, 8, "position after 'l' command");
diff --git a/t/020-insertion.t b/t/020-insertion.t
index 6b19430..9eeedfc 100644
--- a/t/020-insertion.t
+++ b/t/020-insertion.t
@@ -7,13 +7,16 @@ 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);
+is($te->buffer, $buftext, "buffer contents after inserting a string");
+is($te->pointer, length $buftext, "buffer position after inserting a string");
 $te->execute("4j");
 $te->execute("65i");
-is($te->buffer, substr($buftext, 0, 4) . chr(65) . substr($buftext, 4));
-is($te->pointer, 5);
+is($te->buffer, "thisA is\nan initial buffer",
+   "buffer contents after inserting an ascii code");
+is($te->pointer, 5, "buffer position after inserting an ascii character");
 $te->execute("10c");
 $te->execute("i12345\e");
-is($te->buffer, "thisA is\nan ini12345tial buffer");
-is($te->pointer, 20);
+is($te->buffer, "thisA is\nan ini12345tial buffer",
+   "buffer contents after inserting a string in the middle of the buffer");
+is($te->pointer, 20,
+   "buffer position after inserting a string in the middle of the buffer");
diff --git a/t/021-deletion.t b/t/021-deletion.t
index f7beed5..9548069 100644
--- a/t/021-deletion.t
+++ b/t/021-deletion.t
@@ -8,15 +8,23 @@ my $buftext = "this is\nan initial buffer";
 my $te = Language::TECO->new($buftext);
 $te->execute("10j");
 $te->execute("d");
-is($te->buffer, "this is\naninitial buffer");
-is($te->pointer, 10);
+is($te->buffer, "this is\naninitial buffer",
+   "buffer contents after deleting a character forwards");
+is($te->pointer, 10,
+   "buffer position after deleting a character forwards");
 $te->execute("-d");
-is($te->buffer, "this is\nainitial buffer");
-is($te->pointer, 9);
+is($te->buffer, "this is\nainitial buffer",
+   "buffer contents after deleting a character backwards");
+is($te->pointer, 9,
+   "buffer position after deleting a character backwards");
 $te->execute("16j");
 $te->execute("3d");
-is($te->buffer, "this is\nainitialffer");
-is($te->pointer, 16);
+is($te->buffer, "this is\nainitialffer",
+   "buffer contents after deleting several characters forwards");
+is($te->pointer, 16,
+   "buffer position after deleting several characters forwards");
 $te->execute("-11d");
-is($te->buffer, "this ffer");
-is($te->pointer, 5);
+is($te->buffer, "this ffer",
+   "buffer contents after deleting several characters backwards");
+is($te->pointer, 5,
+   "buffer position after deleting several characters backwards");
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')");
diff --git a/t/100-errors.t b/t/100-errors.t
index 3bd23e1..b2c2d7c 100644
--- a/t/100-errors.t
+++ b/t/100-errors.t
@@ -14,10 +14,14 @@ $te->execute("5j");
 for my $cmd (@test_cmds) {
     throws_ok { $te->execute("100$cmd") } qr/Pointer off page/,
               "moving the pointer off the end of the buffer ($cmd)";
-    is($te->pointer, 5);
-    is($te->buffer, $buftext);
+    is($te->pointer, 5,
+       "pointer position after moving off the buffer end ($cmd)");
+    is($te->buffer, $buftext,
+       "buffer contents after moving off the buffer end ($cmd)");
     throws_ok { $te->execute("-100$cmd") } qr/Pointer off page/,
               "moving the pointer off the beginning of the buffer ($cmd)";
-    is($te->pointer, 5);
-    is($te->buffer, $buftext);
+    is($te->pointer, 5,
+       "pointer position after moving off the buffer beginning ($cmd)");
+    is($te->buffer, $buftext,
+       "buffer contents after moving off the buffer beginning ($cmd)");
 }