From: David Vázquez <davazp@gmail.com>
Date: Wed, 8 May 2013 08:42:12 +0000 (+0100)
Subject: Convert test to not to use `equal'
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1cdb33b9f0ffb2adde67aac9f7da7bc694de02ec;hp=32518a8be7324767ec5ed641d71d89ca65318504;p=jscl.git

Convert test to not to use `equal'
---

diff --git a/tests/read.lisp b/tests/read.lisp
index 4f6ea83..a7cfa94 100644
--- a/tests/read.lisp
+++ b/tests/read.lisp
@@ -14,7 +14,11 @@
 (test (equal (read-from-string "(1 . 25)") '(1 . 25)))
 
 (test (equal (read-from-string "(#1=99 2 3 #1#)") '(99 2 3 99)))
-(test (equal (read-from-string "#(#1=99 2 3 #1#)") '#(99 2 3 99)))
+(let ((v (read-from-string "#(#1=99 2 3 #1#)")))
+  (test (and (eql (aref v 0) 99)
+             (eql (aref v 1) 2)
+             (eql (aref v 2) 3)
+             (eql (aref v 3) 99))))
 
 (test (let ((x (read-from-string "#1=(42 . #1#)")))
         (and (eql (nth 99 x) 42)