Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
4
Issues
4
List
Boards
Labels
Milestones
Merge Requests
5
Merge Requests
5
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
08ff74b1
Commit
08ff74b1
authored
Dec 01, 2016
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Split test-defsystem-depends-on-phase-overlap.script into files
parent
0aeb6ba8
Changes
9
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
63 additions
and
21 deletions
+63
-21
test/defsystem-depends-on/defsystem-dependency.asd
test/defsystem-depends-on/defsystem-dependency.asd
+3
-0
test/defsystem-depends-on/defsystem-dependency.lisp
test/defsystem-depends-on/defsystem-dependency.lisp
+3
-0
test/defsystem-depends-on/intermediate-dependency.asd
test/defsystem-depends-on/intermediate-dependency.asd
+3
-0
test/defsystem-depends-on/intermediate-dependency.lisp
test/defsystem-depends-on/intermediate-dependency.lisp
+3
-0
test/defsystem-depends-on/main-system.asd
test/defsystem-depends-on/main-system.asd
+3
-0
test/defsystem-depends-on/main-system.lisp
test/defsystem-depends-on/main-system.lisp
+3
-0
test/defsystem-depends-on/overlapping-dependency.asd
test/defsystem-depends-on/overlapping-dependency.asd
+6
-0
test/defsystem-depends-on/overlapping-dependency.lisp
test/defsystem-depends-on/overlapping-dependency.lisp
+3
-0
test/test-defsystem-depends-on-phase-overlap.script
test/test-defsystem-depends-on-phase-overlap.script
+36
-21
No files found.
test/defsystem-depends-on/defsystem-dependency.asd
0 → 100644
View file @
08ff74b1
(
defsystem
"defsystem-dependency"
:depends-on
(
"overlapping-dependency"
)
:components
((
:file
"defsystem-dependency"
)))
test/defsystem-depends-on/defsystem-dependency.lisp
0 → 100644
View file @
08ff74b1
(
in-package
:asdf-test
)
(
defvar
*dd*
0
)
(
incf
*dd*
)
test/defsystem-depends-on/intermediate-dependency.asd
0 → 100644
View file @
08ff74b1
(
defsystem
"intermediate-dependency"
:defsystem-depends-on
(
"defsystem-dependency"
)
:components
((
:file
"intermediate-dependency"
)))
test/defsystem-depends-on/intermediate-dependency.lisp
0 → 100644
View file @
08ff74b1
(
in-package
:asdf-test
)
(
defvar
*id*
0
)
(
incf
*id*
)
test/defsystem-depends-on/main-system.asd
0 → 100644
View file @
08ff74b1
(
defsystem
"main-system"
:depends-on
(
"overlapping-dependency"
"intermediate-dependency"
)
:components
((
:file
"main-system"
)))
test/defsystem-depends-on/main-system.lisp
0 → 100644
View file @
08ff74b1
(
in-package
:asdf-test
)
(
defvar
*ms*
0
)
(
incf
*ms*
)
test/defsystem-depends-on/overlapping-dependency.asd
0 → 100644
View file @
08ff74b1
(
in-package
:asdf-test
)
(
defvar
*od*
0
)
(
defsystem
"overlapping-dependency"
:components
((
:file
"overlapping-dependency"
))
;;:perform (load-op (o c) (incf *od*))
)
test/defsystem-depends-on/overlapping-dependency.lisp
0 → 100644
View file @
08ff74b1
(
in-package
:asdf-test
)
(
defvar
*od*
0
)
(
incf
*od*
)
test/test-defsystem-depends-on-phase-overlap.script
View file @
08ff74b1
;;-*- Lisp -*-
;; TODO: make it files, so that DEFINE-OP can propagate and cause reloading.
(in-package :asdf-test)
(setf *central-registry*
nil
)
(setf *central-registry*
(list (subpathname *test-directory* "defsystem-depends-on/"))
)
(defparameter *od* 0)
(def-test-system "overlapping-dependency"
:perform (load-op (o c) (incf *od*)))
(defvar *od* 0)
(defvar *dd* 0)
(defvar *id* 0)
(defvar *ms* 0)
(defun reset-vars (&optional (x 0))
(setf *od* x *dd* x *id* x *ms* x))
(assert-equal (list *od* *dd* *id* *ms*) '(0 0 0 0))
(
defparameter *dd* 0
)
(
def-test-system "defsystem-dependency"
:depends-on ("overlapping-dependency
")
:perform (load-op (o c) (incf *dd*)
))
(
DBG "Finding main-system doesn't load defsystem-dependency"
)
(
reset-vars)
(find-system "main-system
")
(assert-equal (list *od* *dd* *id* *ms*) '(0 0 0 0
))
(
defparameter *id* 0
)
(
def-test-system "intermediate-dependency"
:defsystem-depends-on ("defsystem
-dependency")
:perform (load-op (o c) (incf *id*)
))
(
DBG "Finding intermediate-dependency does load defsystem-dependency"
)
(
reset-vars)
(find-system "intermediate
-dependency")
(assert-equal (list *od* *dd* *id* *ms*) '(1 1 0 0
))
(
defparameter *ms* 0
)
(
def-test-system "main-system"
:depends-on ("overlapping-dependency" "intermediate-dependency
")
:perform (load-op (o c) (incf *ms*)
))
(
DBG "Loading main-system doesn't reload defsystem-dependency or overlapping-dependency"
)
(
reset-vars)
(load-system "main-system
")
(assert-equal (list *od* *dd* *id* *ms*) '(0 0 1 1
))
(DBG "Load it once")
(DBG "Loading main-system a second time doesn't reload anything")
(reset-vars)
(load-system "main-system")
(assert-equal (list *od* *dd* *id* *ms*) '(0 0 0 0))
(DBG :foo
(component-sideway-dependencies (find-system "intermediate-dependency"))
(asdf::direct-dependencies 'prepare-op "intermediate-dependency")
(asdf::direct-dependencies 'load-op "intermediate-dependency")
(asdf::direct-dependencies 'compile-op "intermediate-dependency"))
(DBG "Forcing overlapping-dependency causes a complete reload, but overlapping-dependency is only loaded once")
(reset-vars)
(with-asdf-session (:override t)
(load-system "main-system" :force '("overlapping-dependency")))
(assert-equal (list *od* *dd* *id* *ms*) '(1 1 1 1))
(DBG "Load it a second time, forcing od")
(load-system "main-system" :force '("overlapping-dependency"))
(assert-equal (list *od* *dd* *id* *ms*) '(2 2 2 2))
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