Commit cd468d51 authored by Gary King's avatar Gary King

test-op depends on load-op (thanks to

* Improve error message for bad dependencies
* New default is for test-op to depend on load-op
* tweak run-program for SBCL so that ACL isn't #+no #+no bothered
* tweak write-test-web-page and write-license
* tweak some tests
parent 2c2c62a2
......@@ -900,7 +900,7 @@ the head of the tree"))
(do-one-dep op (second d) (third d))))
(error "Dependencies must be (:version <version>), (:feature <feature>), or a name"))))
(error "Bad dependency ~a. Dependencies must be (:version <version>), (:feature <feature>), or a name" d))))
(appendf forced (do-one-dep op d nil)))))))))
(aif (component-visited-p operation c)
......@@ -1129,6 +1129,10 @@ the head of the tree"))
"Testing a system is _never_ done."
(defmethod component-depends-on :around ((o test-op) (c system))
(cons `(load-op ,(component-name c)) (call-next-method)))
;;; invoking operations
......@@ -1457,11 +1461,11 @@ output to `*verbose-out*`. Returns the shell's exit code."
(asdf-message "; $ ~A~%" command)
#+win32 "sh" #-win32 "/bin/sh"
(list "-c" command)
#+win32 #+win32 :search t
:input nil :output *verbose-out*))
(apply #'sb-ext:run-program
#+win32 "sh" #-win32 "/bin/sh"
(list "-c" command)
:input nil :output *verbose-out*
#+win32 '(:search t) #-win32 nil))
#+(or cmu scl)
(in-package #:common-lisp-user)
(build-web-page "/repository/git/asdf/test/results/" "/tmp/x.html" :if-exists :supersede)
(defvar *make-helper-home* *load-truename*)
;;; metatilities-base
;;; because sometimes copy and paste is just too easy
......@@ -259,22 +262,24 @@ None of %c, %F, %p, %x, %X, %Z, %z are implemented."
(defun rewrite-license ()
(let* ((*default-pathname-defaults*
(make-pathname :name nil :type nil :defaults *load-truename*))
(output (merge-pathnames (make-pathname :name "LICENSE"))))
(make-pathname :name nil :type nil :defaults *make-helper-home*))
(output (merge-pathnames (make-pathname :name "LICENSE"
:directory '(:relative :up)))))
(when (probe-file output)
(delete-file output))
(merge-pathnames (make-pathname :name "asdf" :type "lisp"))
(merge-pathnames (make-pathname :name "asdf" :type "lisp"
:directory '(:relative :up)))
(defun write-test-web-pages ()
(let* ((*default-pathname-defaults*
(make-pathname :name nil :type nil :defaults *load-truename*))
(make-pathname :name nil :type nil :defaults *make-helper-home*))
(source (merge-pathnames
:directory '(:relative "results"))))
:directory '(:relative :up "test" "results"))))
(output (merge-pathnames (make-pathname
:directory '(:relative "website" "output")
:directory '(:relative :up "website" "output")
:name "test-results"
:type "html"))))
(print (list source output))
......@@ -48,7 +48,8 @@
((:file "preflight")))
newer traverse always fails
older traverse fails when db-agraph-preflight is evaluated, ok
when loaded or compiled
\ No newline at end of file
when loaded or compiled
\ No newline at end of file
......@@ -8,11 +8,11 @@
;(trace asdf:run-shell-command asdf:oos asdf:perform asdf:operate)
;(trace excl.osi:command-output)
(defvar *caught-error* nil)
(when (probe-file "try-reloading-dependency.asd")
(asdf:run-shell-command "rm -f ~A"
(namestring "try-reloading-dependency.asd")))
(defvar *caught-error* nil)
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(setf asdf::*defined-systems* (asdf::make-defined-systems-table))
(handler-bind ((error (lambda (c)
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