add explanations for tests

1 files changed, 9 insertions, 6 deletions

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");