From pat at nklein.com  Wed May  9 00:20:45 2012
From: pat at nklein.com (Patrick Stein)
Date: Tue, 8 May 2012 19:20:45 -0500
Subject: [anaphora-devel] Patch for scond.3 test for MacOSX compatibility...
Message-ID: <E582E5F2-66E8-411C-A04F-02E14245AD11@nklein.com>


Attached is a small patch to the scond.3 test.  It may not be the ideal way to do this, but I'm not seeing another way to get deftest to evaluate the values.

The test was failing on MacOSX because (truename "/tmp/") => #P"/private/tmp/" instead of #P"/tmp/".

? Patrick


diff -c old/tests.lisp new/tests.lisp
*** old/tests.lisp      2012-05-08 19:07:27.000000000 -0500
--- new/tests.lisp      2012-05-08 19:07:14.000000000 -0500
***************
*** 385,391 ****
                     (setf it (truename "/tmp/"))
                     (namestring *default-pathname-defaults*))
                (setf it tmp)))))
!   "/tmp/")
  
  (deftest aprog.1
      (aprog1 :yes
--- 385,391 ----
                     (setf it (truename "/tmp/"))
                     (namestring *default-pathname-defaults*))
                (setf it tmp)))))
!   #.(namestring (truename "/tmp/")))
  
  (deftest aprog.1
      (aprog1 :yes

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/anaphora-devel/attachments/20120508/59c6fda1/attachment.html>