diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-01-25 01:15:07 +0100 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-01-25 01:15:07 +0100 |
| commit | ad80eaf88a112a312f1dc54e97f590a2a5a9a029 (patch) | |
| tree | 9f67abdb1dc9e647215146991b9d97a7349c0432 | |
| parent | f3780477c9ecfe319633b59f66b2bc12f089f7e2 (diff) | |
tests: clean and organize minimally
| -rw-r--r-- | tests/piece-table.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/piece-table.scm b/tests/piece-table.scm index 453229e..76176a9 100644 --- a/tests/piece-table.scm +++ b/tests/piece-table.scm @@ -13,8 +13,8 @@ (test-begin "insert") (define table (make-piece-table "HOLA")) (piece-table-insert! table 4 "9" 'normal) - (piece-table-insert! table 5 "0" 'normal) (test-equal #\9 (piece-table-index table 4)) + (piece-table-insert! table 5 "0" 'normal) (test-equal #\0 (piece-table-index table 5)) (test-equal "HOLA90" (piece-table->string table)) (piece-table-insert! table 5 "1" 'normal) @@ -36,6 +36,7 @@ (piece-table-insert! table 4 "\nHABLAMOS" 'normal) (test-equal "HOLA\nHABLAMOS\nADIOS" (piece-table->string table)) (test-equal (piece-table-line table 1) "HABLAMOS")) + ;; TODO: test line iteration functions (test-end "insert-newlines") (test-begin "delete") @@ -59,4 +60,4 @@ (test-equal c (string-ref "1234567890" i))) 0 10) -(test-end) +(test-end "for-each") |