diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-02-14 00:55:06 +0100 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-02-14 01:03:40 +0100 |
| commit | c36722cd410a4c71b17ccd408d8abf28e7494b33 (patch) | |
| tree | e35f3060add81c4823330d40d5b70ca7c6a68299 /tests/piece-table.scm | |
| parent | cfdeba05bd54e09f9fe90ca00c780c8a6cfd565d (diff) | |
par: piece-table: remove line control
Diffstat (limited to 'tests/piece-table.scm')
| -rw-r--r-- | tests/piece-table.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/tests/piece-table.scm b/tests/piece-table.scm index 62ff11d..c8d1280 100644 --- a/tests/piece-table.scm +++ b/tests/piece-table.scm @@ -38,15 +38,6 @@ (test-equal "6X78" (piece-table-substring table 5 9))) (test-end "substring") -(test-begin "insert-newlines") - (parameterize ((add-buffer-length 10)) - (define table (make-piece-table "HOLA\nADIOS")) - (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") (define table (make-piece-table "HOLA SOY EKAITZ")) (piece-table-delete! table 4 1) |