Skip to content
Snippets Groups Projects
Commit 87788ed0 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Tweak some tests

parent e7b8ba73
No related branches found
No related tags found
No related merge requests found
;;; -*- Lisp -*-
(asdf:defsystem file3-only
:components ((:file "file3")))
(defsystem file3-only
:components ((:file "file3")))
(defvar *file3-only-asd-loaded* 0)
(incf *file3-only-asd-loaded*)
......@@ -2,7 +2,6 @@
(in-package :asdf-test)
(uiop:uiop-debug)
(enable-deferred-warnings-check)
(def-test-system :unintern-foo
......
......@@ -4,12 +4,12 @@
(assert (version< "3.0" (asdf-version))) ;; check that we have a recent enough ASDF
(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.")
(with-asdf-session (:override t)
(def-test-system "fooey")
(defparameter *ticks* 0)
(defun tick () (incf *ticks*))
(def-test-system "foo")
(defmethod input-files :after ((o load-op) (c system))
(tick))
......
......@@ -36,7 +36,7 @@
(sleep 1)
(clear-system :test1)
(touch-file test1.asd :offset 600)
(touch-file test1.asd :timestamp date4 :offset 600)
(find-system :test1)
(defparameter date6 (system-registered-time :test1))
(assert-compare (> date6 date4))
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