From: <don...@is...> - 2018-01-12 17:13:20
|
Under make check, I think all of this I've reported before. The permission problems go away when run as root. $ cat /home/don/hg/clisp/build-dir/tests/*.erg Form: (HANDLER-CASE (LETF ((*CURRENT-LANGUAGE* 'FRENCH)) (LIST (STRING= "à bientôt!" (SYSTEM::TEXT "Bye.")) (STRING= *CURRENT-LANGUAGE* "FRANÃAIS"))) (ERROR (E) (PRINC-ERROR E) '(T T))) CORRECT: (T T) CLISP : (NIL T) Differ at position 0: T vs NIL CORRECT: (T T) CLISP : (NIL T) Form: (WITH-OPEN-FILE (COPY S) (STREAMP COPY)) CORRECT: T CLISP : ERROR OS-FILE-ERROR(13): Permission denied OUT: "[OS-FILE-ERROR]: OS-FILE-ERROR(13): Permission denied " Form: (LET ((*REOPEN-OPEN-FILE* NIL)) (WITH-OPEN-FILE (COPY S :DIRECTION :OUTPUT) (STREAMP COPY))) CORRECT: T CLISP : ERROR OS-FILE-ERROR(13): Permission denied OUT: "[OS-FILE-ERROR]: OS-FILE-ERROR(13): Permission denied " [2018-01-12 07:46:39 don@number15 ~/hg/clisp/build-dir] $ However, mod-check ends with finished 4 files: 298 errors out of 632 tests 1 i18n/test.tst: 0 errors out of 11 tests 2 syscalls/test.tst: 3 errors out of 264 tests 3 regexp/test.tst: 295 errors out of 320 tests 4 readline/test.tst: 0 errors out of 37 tests Bye. Makefile:2403: recipe for target 'base-mod-check' failed make: *** [base-mod-check] Error 1 Most of the regexp errors seem to be [SIMPLE-TYPE-ERROR]: FINALIZE: #<ADDRESS #x0000000000911C30> is not a function $ cat /home/don/hg/clisp/build-dir/syscalls/test.erg 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 " Form: (LET ((DIR "syscalls-tests-dir/") (LINK #P"syscalls-tests-symlink/")) (LIST (MAKE-DIRECTORY DIR) (STRING= DIR (CAAR (COPY-FILE DIR LINK :METHOD :SYMLINK))) (DELETE-DIRECTORY DIR) (DELETE-DIRECTORY LINK))) CORRECT: (T T T T) CLISP : ERROR OS-FILE-ERROR(EEXIST): File exists OUT: "[OS-FILE-ERROR]: OS-FILE-ERROR(EEXIST): File exists " Form: (LET ((DIR "syscalls-tests-dir/") (DEST "foo/bar")) (MAKE-DIRECTORY DIR) (COPY-FILE DEST DIR :METHOD :SYMLINK) (HANDLER-CASE (OR (DELETE-DIRECTORY DIR) (ERROR "deleted non-empty directory")) (OS-ERROR (E) (OR (EQ (OS-ERROR-CODE E) :ENOTEMPTY) (INTEGERP (OS-ERROR-CODE E)) (ERROR "wrong error code: ~s" (OS-ERROR-CODE E))))) (MAPC #'DELETE-FILE (DIRECTORY (CONCATENATE 'STRING DIR "**") :IF-DOES-NOT-EXIST :KEEP)) (DELETE-DIRECTORY DIR)) CORRECT: T CLISP : ERROR OS-FILE-ERROR(EEXIST): File exists OUT: "[OS-FILE-ERROR]: OS-FILE-ERROR(EEXIST): File exists " |