[anaphora-devel] Test ANAPHORA-TEST::SCOND.3 fails on Windows.

[Martin Simmons]

>>>>> On Thu, 29 Dec 2011 00:53:38 +0400, Anton Vodonosov said:
> 
> Hello.
> 
> I decided to setup a  test environment where CL libraries may be tested on different Lisps.
> Anaphora is already included, because it is one of the most often downloaded Quicklisp projects.
> 
> Results maybe found here 
> http://common-lisp.net/project/cl-test-grid/pivot_ql-lib_lisp.html (the ok/fail links refer to 
> the test logs).
> 
> As you can see, on Windows implementations one of the tests fails:
> 
>   Test ANAPHORA-TEST::SCOND.3 failed
>    Form: (ANAPHORA:SCOND
>             ((SYMBOL-VALUE '*DEFAULT-PATHNAME-DEFAULTS*)
>              (LET ((ANAPHORA-TEST::TMP ANAPHORA:IT))
>                (UNWIND-PROTECT (PROGN (SETF ANAPHORA:IT (TRUENAME "/tmp/")) 
>                                                         (NAMESTRING *DEFAULT-PATHNAME-DEFAULTS*)) 
>                    (SETF ANAPHORA:IT ANAPHORA-TEST::TMP)))))
> Expected value: "/tmp/"
> Actual value: "c:/tmp/".
>  
> If you like the idea of continuous testing, you may want to fix this, so that this failure does 
> not obscure real regressions which may happen in future.

Moreover, (TRUENAME "/tmp/") gives an error on stock Windows because the
directory doesn't exist.

I think the test should use its own variable, not *DEFAULT-PATHNAME-DEFAULTS*.
This is also safer if (SETF ANAPHORA:IT ANAPHORA-TEST::TMP) fails for some
reason.

__Martin