diff options
Diffstat (limited to 't/021-deletion.t')
| -rw-r--r-- | t/021-deletion.t | 24 |
1 files changed, 16 insertions, 8 deletions
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"); |