Add test to check gensym reading.

euslisp · Apr 10, 2018 · 65a8144 · 65a8144
1 parent f40fc73
commit 65a8144
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/irteus/test/read-line.l b/irteus/test/read-line.l
@@ -16,5 +16,12 @@
   ;; (assert (= (test-read-line 8192) 8192) "read-line with ~A char" 8192) ;; tempolarily comment out
   )
 
+(deftest test-read-gensym
+  (let ((g (gensym))
+	(*print-circle* t))
+    (assert
+     (apply #'eq (read-from-string (format nil "~S" (list g g))))
+     "Unable to read uninterned symbol")))
+
 (run-all-tests)
 (exit)