diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-01-12 23:02:55 +0100 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-01-12 23:02:55 +0100 |
| commit | 49f7232b4c580197413528e03b699ca519905fdc (patch) | |
| tree | 22e20cc6654e267beef3f18bf867a325318a9fcc /tests/piece-table.scm | |
| parent | 49035a91a14242f4f140d17af8ebd91670e128f2 (diff) | |
par: piece-table: fix delete and tests
Diffstat (limited to 'tests/piece-table.scm')
| -rw-r--r-- | tests/piece-table.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/piece-table.scm b/tests/piece-table.scm index b8b6ff1..d6c1105 100644 --- a/tests/piece-table.scm +++ b/tests/piece-table.scm @@ -23,10 +23,10 @@ (test-begin "delete") (define table (make-piece-table "HOLA SOY EKAITZ")) - (piece-table-delete! table 4) + (piece-table-delete! table 4 1) (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)) + (piece-table-delete! table 0 1) + (test-equal "OLASOY EKAITZ" (piece-table->string table)) + (piece-table-delete! table 12 1) + (test-equal "OLASOY EKAIT" (piece-table->string table)) (test-end "delete") |