tests/table.scm ("table-number"): New test

* tests/table.scm ("table-number"): New test.
artyom-poptsov · Oct 22, 2023 · 32ba607 · 32ba607
1 parent 8ed7845
commit 32ba607
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/table.scm b/tests/table.scm
@@ -245,6 +245,15 @@
   10
   (sum '(2 8)))
 
+
+
+(test-equal "table-number"
+  '((" " "0" "1" "2" "3" "4")
+    ("0" "a" "b" "c" "d" "e")
+    ("1" "f" "g" "i" "j" "k"))
+  (table-number '(("a" "b" "c" "d" "e")
+                  ("f" "g" "i" "j" "k"))))
+
 
 (define exit-status (test-runner-fail-count (test-runner-current)))