2 files changed, 9 insertions, 0 deletions
diff --git a/tests/016/arith.tl b/tests/016/arith.tl
index 86b5d9bb..d67b9908 100644
--- a/tests/016/arith.tl
+++ b/tests/016/arith.tl
@@ -405,3 +405,10 @@
 (test
   (build (each-prod* ((i '(b c)) (j (cons 'a i))) (add (list i j))))
   ((b a) (b b) (b c) (c a) (c b) (c c)))
+
+(mtest
+  (arithp #\a) t
+  (arithp 42) t
+  (arithp 3.14) t
+  (arithp (expt 2 200)) t
+  (arithp #R(nil nil)) t)
diff --git a/tests/016/ud-arith.tl b/tests/016/ud-arith.tl
index 052fcaed..5d07349a 100644
--- a/tests/016/ud-arith.tl
+++ b/tests/016/ud-arith.tl
@@ -138,3 +138,5 @@
 (test (ash n 0) (ash 1 0))
 (test (width n) (width 1))
 (test (logcount n) (logcount 1))
+
+(test (arithp n) t)