From fc60c98b2bf9b6de65a5c1e4afb97e49587e8e31 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Sun, 7 Jan 2024 20:55:38 +0100 Subject: par: piece-table: implement insert and more --- tests/piece-table.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/piece-table.scm b/tests/piece-table.scm index 8f3af80..d1fa32a 100644 --- a/tests/piece-table.scm +++ b/tests/piece-table.scm @@ -12,8 +12,9 @@ (test-begin "insert") (define table (make-piece-table "HOLA")) - (piece-table-insert! table 2 #\9) + (piece-table-insert! table 2 "90") (test-equal #\9 (piece-table-index table 2)) + (test-equal #\0 (piece-table-index table 3)) (test-end "insert") (test-begin "delete") -- cgit v1.2.3