diff options
Diffstat (limited to 'tests/piece-table.scm')
| -rw-r--r-- | tests/piece-table.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/piece-table.scm b/tests/piece-table.scm index 04a62bc..b8b6ff1 100644 --- a/tests/piece-table.scm +++ b/tests/piece-table.scm @@ -22,4 +22,11 @@ (test-end "insert") (test-begin "delete") + (define table (make-piece-table "HOLA SOY EKAITZ")) + (piece-table-delete! table 4) + (test-equal "HOLASOY EKAITZ" (piece-table->string table)) + (piece-table-delete! table 0) + (test-equal "OLA SOY EKAITZ" (piece-table->string table)) + (piece-table-delete! table 13) + (test-equal "OLA SOY EKAIT" (piece-table->string table)) (test-end "delete") |