[anaphora-devel] Patch for scond.3 test for MacOSX compatibility...

[Patrick Stein]

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>