From c36722cd410a4c71b17ccd408d8abf28e7494b33 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
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')
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