Commit 20230607 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Tweak tests to work for Robert Goldman.

Make test-utilities work on lower-case lisps.
Don't assume ln is in /bin. Don't assume SHELL is /bin/sh.
parent 827ea844
...@@ -23,6 +23,8 @@ usage () { ...@@ -23,6 +23,8 @@ usage () {
} }
unset DEBUG_ASDF_TEST upgrade clean_load load_systems test_interactively unset DEBUG_ASDF_TEST upgrade clean_load load_systems test_interactively
SHELL=/bin/sh
export SHELL
while getopts "cdthulhu" OPTION while getopts "cdthulhu" OPTION
do do
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(in-package :asdf)
(use-package :asdf-test)
(defparameter asd (subpathname *test-directory* "test-multiple.asd")) (defparameter asd (subpathname *test-directory* "test-multiple.asd"))
(defparameter tmp (subpathname *test-directory* "../build/")) (defparameter tmp (subpathname *test-directory* "../build/"))
(defparameter asd2 (subpathname tmp "test-multiple-too.asd")) (defparameter asd2 (subpathname tmp "test-multiple-too.asd"))
(defparameter file4 (test-fasl "file4")) (defparameter file4 (test-fasl "file4"))
(setf *central-registry* `(,*test-directory* ,tmp)) (setf *central-registry* `(,*test-directory* ,tmp))
(run-program (run-program
(format nil "/bin/ln -sf ~A ~A 2>&1" (format nil "ln -sf ~A ~A"
(native-namestring asd) (native-namestring asd)
(native-namestring asd2))) (native-namestring asd2)))
(oos 'load-source-op 'test-multiple-too) (oos 'load-source-op 'test-multiple-too)
(assert (symbol-value (find-symbol* :*file3* :test-package))) (assert (asymval :*file3* :test-package))
(load-system 'test-multiple-free) (load-system 'test-multiple-free)
(assert (probe-file* file4)) (assert (probe-file* file4))
#+xcvb
(declaim (optimize (debug 3) (safety 3))) (declaim (optimize (debug 3) (safety 3)))
(assert-equal '("ok 1") (run-program "echo ok 1" :output :lines)) (assert-equal '("ok 1") (run-program "echo ok 1" :output :lines))
......
...@@ -76,80 +76,80 @@ ...@@ -76,80 +76,80 @@
(defparameter *ok-symbols* (defparameter *ok-symbols*
'(;; slots names '(;; slots names
ASDF/ACTION:ACCEPT asdf/action:accept
ASDF/ACTION:ACTION asdf/action:action
ASDF/ACTION:DONE-P asdf/action:done-p
ASDF/ACTION:FEATURE asdf/action:feature
ASDF/ACTION:STAMP asdf/action:stamp
ASDF/BUNDLE:PROLOGUE-CODE asdf/bundle:prologue-code
ASDF/BUNDLE:BUILD-ARGS asdf/bundle:build-args
ASDF/BUNDLE:EPILOGUE-CODE asdf/bundle:epilogue-code
ASDF/BUNDLE:NAME-SUFFIX asdf/bundle:name-suffix
ASDF/COMPONENT:ABSOLUTE-PATHNAME asdf/component:absolute-pathname
ASDF/COMPONENT:AROUND-COMPILE asdf/component:around-compile
ASDF/COMPONENT:AUTHOR asdf/component:author
ASDF/COMPONENT:CHILDREN asdf/component:children
ASDF/COMPONENT:CHILDREN-BY-NAME asdf/component:children-by-name
ASDF/COMPONENT:COMPONENTS asdf/component:components
ASDF/COMPONENT:COMPONENTS-BY-NAME asdf/component:components-by-name
ASDF/COMPONENT:DEFAULT-COMPONENT-CLASS asdf/component:default-component-class
ASDF/COMPONENT:DEFSYSTEM-DEPENDS-ON asdf/component:defsystem-depends-on
ASDF/COMPONENT:DESCRIPTION asdf/component:description
ASDF/COMPONENT:%ENCODING asdf/component:%encoding
ASDF/COMPONENT:IF-FEATURE asdf/component:if-feature
ASDF/COMPONENT:INLINE-METHODS asdf/component:inline-methods
ASDF/COMPONENT:IN-ORDER-TO asdf/component:in-order-to
ASDF/COMPONENT:LICENCE asdf/component:licence
ASDF/COMPONENT:LONG-DESCRIPTION asdf/component:long-description
ASDF/COMPONENT:MAINTAINER asdf/component:maintainer
ASDF/COMPONENT:NAME asdf/component:name
ASDF/COMPONENT:OPERATION-TIMES asdf/component:operation-times
ASDF/COMPONENT:PARENT asdf/component:parent
ASDF/COMPONENT:PROPERTIES asdf/component:properties
ASDF/COMPONENT:RELATIVE-PATHNAME asdf/component:relative-pathname
ASDF/COMPONENT:SIBLING-DEPENDENCIES asdf/component:sibling-dependencies
ASDF/COMPONENT:VERSION asdf/component:version
ASDF/LISP-ACTION:FLAGS asdf/lisp-action:flags
ASDF/PLAN:INDEX asdf/plan:index
ASDF/PLAN:FORCED asdf/plan:forced
ASDF/PLAN:FORCED-NOT asdf/plan:forced-not
ASDF/PLAN:PLANNED-ACTION-COUNT asdf/plan:planned-action-count
ASDF/PLAN:PLANNED-OUTPUT-ACTION-COUNT asdf/plan:planned-output-action-count
ASDF/PLAN:PLANNED-P asdf/plan:planned-p
ASDF/PLAN:TOTAL-ACTION-COUNT asdf/plan:total-action-count
ASDF/PLAN:VISITED-ACTIONS asdf/plan:visited-actions
ASDF/PLAN:VISITING-ACTION-SET asdf/plan:visiting-action-set
ASDF/PLAN:VISITING-ACTION-LIST asdf/plan:visiting-action-list
ASDF/SYSTEM:BUG-TRACKER asdf/system:bug-tracker
ASDF/SYSTEM:BUILD-PATHNAME asdf/system:build-pathname
ASDF/SYSTEM:ENTRY-POINT asdf/system:entry-point
ASDF/SYSTEM:HOMEPAGE asdf/system:homepage
ASDF/SYSTEM:LONG-NAME asdf/system:long-name
ASDF/SYSTEM:MAILTO asdf/system:mailto
ASDF/SYSTEM:SOURCE-CONTROL asdf/system:source-control
;; restarts ;; restarts
ASDF/ACTION:ACCEPT asdf/action:accept
ASDF/FIND-COMPONENT:RETRY asdf/find-component:retry
ASDF/FIND-SYSTEM:COERCE-ENTRY-TO-DIRECTORY asdf/find-system:coerce-entry-to-directory
ASDF/FIND-SYSTEM:REMOVE-ENTRY-FROM-REGISTRY asdf/find-system:remove-entry-from-registry
ASDF/LISP-ACTION:TRY-RECOMPILING asdf/lisp-action:try-recompiling
;; types ;; types
ASDF/BUNDLE:USER-SYSTEM asdf/bundle:user-system
;; on some implementations only ;; on some implementations only
ASDF/BUNDLE:BUNDLE-SYSTEM asdf/bundle:bundle-system
ASDF/BUNDLE:REGISTER-PRE-BUILT-SYSTEM asdf/bundle:register-pre-built-system
ASDF/BUNDLE:STATIC-LIBRARY asdf/bundle:static-library
ASDF/IMAGE:CREATE-IMAGE asdf/image:create-image
ASDF/IMAGE:DUMP-IMAGE asdf/image:dump-image
ASDF/LISP-BUILD:REIFY-UNDEFINED-WARNING asdf/lisp-build:reify-undefined-warning
ASDF/OS:PARSE-FILE-LOCATION-INFO asdf/os:parse-file-location-info
ASDF/OS:PARSE-WINDOWS-SHORTCUT asdf/os:parse-windows-shortcut
ASDF/OS:READ-LITTLE-ENDIAN asdf/os:read-little-endian
ASDF/OS:READ-NULL-TERMINATED-STRING asdf/os:read-null-terminated-string
;; backward compatibility upgrade only ;; backward compatibility upgrade only
ASDF/BACKWARD-INTERNALS:MAKE-SUB-OPERATION asdf/backward-internals:make-sub-operation
ASDF/FIND-SYSTEM:CONTRIB-SYSDEF-SEARCH asdf/find-system:contrib-sysdef-search
ASDF/FIND-SYSTEM:SYSDEF-FIND-ASDF asdf/find-system:sysdef-find-asdf
)) ))
(defun defined-symbol-p (symbol) (defun defined-symbol-p (symbol)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment