From 32ba607c3a2d5de6a360128cd314f05884b5bad3 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Sun, 22 Oct 2023 12:06:46 +0300
Subject: [PATCH] tests/table.scm ("table-number"): New test

* tests/table.scm ("table-number"): New test.
---
 tests/table.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tests/table.scm b/tests/table.scm
index f729ff7..8c6d19b 100644
--- 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)))