Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Jan Moringen
asdf
Commits
87788ed0
Commit
87788ed0
authored
Dec 01, 2016
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Tweak some tests
parent
e7b8ba73
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
5 additions
and
6 deletions
+5
-6
test/file3-only.asd
test/file3-only.asd
+2
-2
test/test-deferred-warnings.script
test/test-deferred-warnings.script
+0
-1
test/test-sysdef-asdf.script
test/test-sysdef-asdf.script
+2
-2
test/test-touch-system-1.script
test/test-touch-system-1.script
+1
-1
No files found.
test/file3-only.asd
View file @
87788ed0
;;; -*- 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 @
87788ed0
...
...
@@ -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 @
87788ed0
...
...
@@ -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 @
87788ed0
...
...
@@ -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