Skip to content
Snippets Groups Projects
Commit ccf0c67d authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Fixed cut-and-paste typo in test definition.

Was loading wrong system once.
parent 868c69ff
No related branches found
No related tags found
No related merge requests found
...@@ -48,12 +48,12 @@ ...@@ -48,12 +48,12 @@
(make-instance 'asdf:load-op) (make-instance 'asdf:load-op)
(asdf:find-system 'test-module-excessive-depend))) (asdf:find-system 'test-module-excessive-depend)))
(file3-only (asdf:find-system 'file3-only))) (file3-only (asdf:find-system 'file3-only)))
;;; (format t "~%Operation plan is:~%") ;;; (format t "~%Operation plan is:~%")
;;; (pprint plan) ;;; (pprint plan)
;;; (format t "Target system is: ~a" file3-only) ;;; (format t "Target system is: ~a" file3-only)
(when (find file3-only plan :key #'cdr) (when (find file3-only plan :key #'cdr)
(error "Excessive operations on file3-only system. Bad propagation of dependencies."))) (error "Excessive operations on file3-only system. Bad propagation of dependencies.")))
(asdf:operate 'asdf:load-op 'test-module-depend) (asdf:operate 'asdf:load-op 'test-module-excessive-depend)
(assert (> (file-write-date (asdf:compile-file-pathname* "file2")) before)) (assert (> (file-write-date (asdf:compile-file-pathname* "file2")) before))
(assert (> (file-write-date (asdf:compile-file-pathname* "file2")) before)) (assert (> (file-write-date (asdf:compile-file-pathname* "file2")) before))
) )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment