Commit 50080e4c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

More test frobbing.

parent 53b7feec
...@@ -65,8 +65,7 @@ Some constraints: ...@@ -65,8 +65,7 @@ Some constraints:
(< system::*gcl-minor-version* 7))) (< system::*gcl-minor-version* 7)))
(shadowing-import 'system:*load-pathname* :asdf-test)) (shadowing-import 'system:*load-pathname* :asdf-test))
#+lispworks #+lispworks
(setf system:*stack-overflow-behaviour* :warn) (setf system:*stack-overflow-behaviour* :warn))
(setf system:*sg-default-size* 200000))
#+(or gcl genera) #+(or gcl genera)
(unless (fboundp 'ensure-directories-exist) (unless (fboundp 'ensure-directories-exist)
......
...@@ -2,17 +2,17 @@ ...@@ -2,17 +2,17 @@
(DBG :foo (current-lisp-file-pathname)) (DBG :foo (current-lisp-file-pathname))
(defparameter exe (output-file (make-operation 'program-op) (find-system :hello-world-example))) (unless (or #+(or clisp clozure (and ecl (not ecl-bytecmp)) lispworks sbcl) t
(assert (absolute-pathname-p exe)) #+cmu nil ;; uncomment if you have 32-bit gcc support - or can autodetect
#+clisp (version-satisfies
(unless (and #-(or clisp clozure cmu ecl lispworks sbcl) nil (first (split-string (lisp-implementation-version) :separator " "))
#+cmu nil ;; uncomment if you have 32-bit gcc support - or can autodetect "2.48"))
#+clisp (version-satisfies
(first (split-string (lisp-implementation-version) :separator " "))
"2.48"))
(DBG "Creating standalone programs is not supported on your CL implementation") (DBG "Creating standalone programs is not supported on your CL implementation")
(leave-test "Skipping test" 0)) (leave-test "Skipping test" 0))
(defparameter exe (output-file (make-operation 'program-op) (find-system :hello-world-example)))
(assert (absolute-pathname-p exe))
;; Try to load lisp-invocation from xcvb ;; Try to load lisp-invocation from xcvb
(setf *central-registry* (setf *central-registry*
(list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF (list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
......
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