diff options
Diffstat (limited to 'tests')
| -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) |