1 files changed, 19 insertions, 0 deletions
diff --git a/tests/piece-table.scm b/tests/piece-table.scm
new file mode 100644
index 0000000..ecf57bc
--- /dev/null
+++ b/tests/piece-table.scm
@@ -0,0 +1,19 @@
+(import (srfi 64)
+        (par piece-table))
+
+;; https://srfi.schemers.org/srfi-64/srfi-64.html
+
+
+(test-begin "index")
+  (define table (make-piece-table "HOLA" "" (list)))
+  (test-equal #\L (piece-table-index table 2))
+(test-end "index")
+
+(test-begin "insert")
+  (define table (make-piece-table "HOLA" "" (list)))
+  (piece-table-insert! table 2 #\9)
+  (test-equal #\9 (piece-table-index table 2))
+(test-end "insert")
+
+(test-begin "delete")
+(test-end "delete")