tests: Add special case for CLISP.

It seems to list four! functions in nsymbols package, including the setf ones.
atlas-engineer · Aug 14, 2023 · cdf99e5 · cdf99e5
1 parent b82f19b
commit cdf99e5
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/tests/tests.lisp b/tests/tests.lisp
@@ -15,7 +15,13 @@
 
 (define-test nsymbols-inspection ()
   (let ((functions (nsymbols:package-functions :nsymbols :internal)))
-    (assert-eql 2 (length functions))
+    (assert-eql
+     ;; CLISP returns: (NSYMBOLS::DESIGNATOR NSYMBOLS::RESULTS
+     ;; NSYMBOLS::|(SETF NSYMBOLS:RESULTS)| NSYMBOLS::|(SETF
+     ;; NSYMBOLS:DESIGNATOR)|)
+     #+clisp 4
+     #-clisp 2
+     (length functions))
     (assert-true (member 'nsymbols::designator functions)))
   (let ((macros (nsymbols:package-macros :nsymbols)))
     (assert-eql 1 (length macros))