Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
1
Issues
1
List
Board
Labels
Milestones
Merge Requests
3
Merge Requests
3
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
asdf
asdf
Commits
0aeb6ba8
Commit
0aeb6ba8
authored
Dec 01, 2016
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Tweak some tests
parent
03815785
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
5 additions
and
6 deletions
+5
-6
file3-only.asd
test/file3-only.asd
+2
-2
test-deferred-warnings.script
test/test-deferred-warnings.script
+0
-1
test-sysdef-asdf.script
test/test-sysdef-asdf.script
+2
-2
test-touch-system-1.script
test/test-touch-system-1.script
+1
-1
No files found.
test/file3-only.asd
View file @
0aeb6ba8
;;; -*- 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*
)
test/test-deferred-warnings.script
View file @
0aeb6ba8
...
...
@@ -2,7 +2,6 @@
(in-package :asdf-test)
(uiop:uiop-debug)
(enable-deferred-warnings-check)
(def-test-system :unintern-foo
...
...
test/test-sysdef-asdf.script
View file @
0aeb6ba8
...
...
@@ -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))
...
...
test/test-touch-system-1.script
View file @
0aeb6ba8
...
...
@@ -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))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment