Re: make check fails

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
  "



------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
clisp-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/clisp-devel