diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:46:47 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:46:47 -0500 |
commit | 148571cad607caf011c8a8641645736c150eb54f (patch) | |
tree | 40e682bea03bd3a887a3c055ec42ae6842065f7f /t/021-deletion.t | |
parent | 489766d2e7a04342364d604fcf2bec740ea43c82 (diff) | |
download | language-teco-148571cad607caf011c8a8641645736c150eb54f.tar.gz language-teco-148571cad607caf011c8a8641645736c150eb54f.zip |
add explanations for tests
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"); |