Commit 0aeb6ba8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Tweak some tests

parent 03815785
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(asdf:defsystem file3-only (defsystem file3-only
:components ((:file "file3"))) :components ((:file "file3")))
(defvar *file3-only-asd-loaded* 0) (defvar *file3-only-asd-loaded* 0)
(incf *file3-only-asd-loaded*) (incf *file3-only-asd-loaded*)
...@@ -2,7 +2,6 @@ ...@@ -2,7 +2,6 @@
(in-package :asdf-test) (in-package :asdf-test)
(uiop:uiop-debug)
(enable-deferred-warnings-check) (enable-deferred-warnings-check)
(def-test-system :unintern-foo (def-test-system :unintern-foo
......
...@@ -4,12 +4,12 @@ ...@@ -4,12 +4,12 @@
(assert (version< "3.0" (asdf-version))) ;; check that we have a recent enough ASDF (assert (version< "3.0" (asdf-version))) ;; check that we have a recent enough ASDF
(setf *asdf-session* nil) (setf *asdf-session* nil)
(defparameter *ticks* 0)
(defun tick () (incf *ticks*))
(DBG "Let's define some methods on input-files, to later check what an upgrade does to them.") (DBG "Let's define some methods on input-files, to later check what an upgrade does to them.")
(with-asdf-session (:override t) (with-asdf-session (:override t)
(def-test-system "fooey") (def-test-system "fooey")
(defparameter *ticks* 0)
(defun tick () (incf *ticks*))
(def-test-system "foo") (def-test-system "foo")
(defmethod input-files :after ((o load-op) (c system)) (defmethod input-files :after ((o load-op) (c system))
(tick)) (tick))
......
...@@ -36,7 +36,7 @@ ...@@ -36,7 +36,7 @@
(sleep 1) (sleep 1)
(clear-system :test1) (clear-system :test1)
(touch-file test1.asd :offset 600) (touch-file test1.asd :timestamp date4 :offset 600)
(find-system :test1) (find-system :test1)
(defparameter date6 (system-registered-time :test1)) (defparameter date6 (system-registered-time :test1))
(assert-compare (> date6 date4)) (assert-compare (> date6 date4))
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