diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-01-09 22:30:26 +0100 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-01-09 22:30:26 +0100 |
| commit | 67f7a5e9eba1e97b975b2d5cd8a29aef404f9149 (patch) | |
| tree | 121fdd235f36bdf8cd17771b441ce8bfc9914f4f /tests/piece-table.scm | |
| parent | 3dcfb739029b53b224e4fc2a42458c88902b8290 (diff) | |
par: piece-table: delete operation
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") |