From: Sam S. <sd...@gn...> - 2018-01-24 18:09:37
|
> * Don Cohen <qba...@vf...3-vap.pbz> [2018-01-24 16:22:15 +0000]: > > 3. tail of output of make mod-check: > 2 syscalls/test.tst: 3 errors out of 264 tests > > Form: (LET ((DIR "syscalls-tests-dir/") (DEST "qwer/adsf") COPY) (WHEN (NTH-VALUE 1 (ENSURE-DIRECTORIES-EXIST DIR :VERBOSE T)) (MAPC #'DELETE-FILE (DIRECTORY (CONCATENATE 'STRING DIR "**") :IF-DOES-NOT-EXIST :KEEP))) (SETQ COPY (COPY-FILE DEST DIR :METHOD :SYMLINK)) (LIST (STRING= DEST (CAAR COPY)) (STRING= (PATHNAME-NAME DEST) (PATHNAME-NAME (DELETE-FILE (CADAR COPY)))) (DELETE-DIRECTORY DIR) (PROBE-PATHNAME DIR))) > CORRECT: (T T T NIL) > CLISP : ERROR > OS-FILE-ERROR(ENOENT): No such file or directory > OUT: > "Creating directory: /home/don/hg/clisp/build-dir/syscalls-tests-dir/ > [OS-FILE-ERROR]: OS-FILE-ERROR(ENOENT): No such file or directory > " I fixed this. Fascinating bug. It turned out that ./clisp -C -E UTF-8 -Emisc 1:1 -q -norc -i tests/tests -x \ '(run-some-tests :dirlist (list "syscalls/") :srcdir "../modules/" :outdir "./")' failed while ./clisp -E 1:1 -q -norc -i tests/tests -x \ '(run-test "../modules/syscalls/test" :logname "syscalls/test")' worked, because RUN-SOME-TESTS bound *MERGE-PATHNAMES-ANSI* to T. Thanks. -- Sam Steingold (http://sds.podval.org/) on darwin Ns 10.3.1561 http://steingoldpsychology.com http://www.childpsy.net https://ffii.org http://islamexposedonline.com http://thereligionofpeace.com If you need to keep a secret, keep it a secret that you have a secret to keep. |