From c36722cd410a4c71b17ccd408d8abf28e7494b33 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Wed, 14 Feb 2024 00:55:06 +0100 Subject: par: piece-table: remove line control --- tests/piece-table.scm | 9 --------- 1 file changed, 9 deletions(-) (limited to 'tests/piece-table.scm') 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) -- cgit v1.2.3