Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
8436a56d
Commit
8436a56d
authored
Oct 08, 2013
by
Francois-Rene Rideau
Browse files
Use the normalized name UIOP instead of asdf-driver in the tests.
parent
a9f304ae
Changes
6
Hide whitespace changes
Inline
Side-by-side
test/asdf-pathname-test.script
View file @
8436a56d
;;; -*- Lisp -*-
(defpackage :asdf-pathname-test (:use :asdf :
asdf/driver :asdf
/common-lisp :asdf/cache :asdf-test))
(defpackage :asdf-pathname-test (:use :asdf :
uiop :uiop
/common-lisp :asdf/cache :asdf-test))
(in-package :asdf-pathname-test)
;;(setf *unspecific-pathname-type* nil)
...
...
test/hello-world-example.asd
View file @
8436a56d
...
...
@@ -3,5 +3,5 @@
(
defsystem
:hello-world-example
:build-operation
program-op
:entry-point
"hello:entry-point"
:depends-on
(
:
asdf-driver
)
:depends-on
(
:
uiop
)
:components
((
:file
"hello"
)))
test/hello.lisp
View file @
8436a56d
(
defpackage
:hello
(
:use
:cl
:
asdf/driver
)
(
:use
:cl
:
uiop
)
(
:export
#:main
#:entry-point
))
(
in-package
:hello
)
...
...
test/make-hello-world.lisp
View file @
8436a56d
...
...
@@ -4,14 +4,14 @@
(
load-asdf
)
#+
ecl
(
require
:cmp
)
(
asdf-test::register-directory
asdf-test::*asdf-directory*
)
;; we need
asdf-driver
, and ECL can dump.
(
asdf-test::register-directory
asdf-test::*asdf-directory*
)
;; we need
UIOP
, and ECL can dump.
(
asdf-test::register-directory
asdf-test::*uiop-directory*
)
(
asdf:upgrade-asdf
)
;; may recompile and rename away package asdf?
(
asdf-test::frob-packages
)
(
with-test
()
;;(dolist (s '(:asdf :
asdf/driver
:asdf/defsystem :uiop)) (DBG :foo s (asdf::builtin-system-p (find-system s))))
;;(dolist (s '(:asdf :
uiop
:asdf/defsystem :uiop)) (DBG :foo s (asdf::builtin-system-p (find-system s))))
;;(trace perform-plan perform)
(
operate
'load-fasl-op
:hello-world-example
)
(
operate
'program-op
:hello-world-example
))
test/script-support.lisp
View file @
8436a56d
...
...
@@ -6,7 +6,7 @@ Some constraints:
But we *can* rely on ASDF being present *after* we load it.
* evaluating this file MUST NOT print anything,
because we use it in the forward-ref test to check that nothing is printed.
* We make sure that none of our symbols clash with
asdf/driver
or asdf,
* We make sure that none of our symbols clash with
uiop
or asdf,
so we may use-package them during testing.
|#
...
...
@@ -320,7 +320,7 @@ is bound, write a message and exit on an error. If
(
verbose
t
nil
)
(
loop
:for
file
:in
files
:do
(
load
(
string-downcase
file
)))
(
setf
*package*
(
some
'find-package
'
(
:asdf
:
asdf/driver
:asdf/utility
:asdf/package
:asdf-test
)))
(
setf
*package*
(
some
'find-package
'
(
:asdf
:
uiop
:asdf/utility
:asdf/package
:asdf-test
)))
(
load
"contrib/debug.lisp"
))
(
defun
load-asdf-lisp
(
&optional
tag
)
...
...
@@ -520,7 +520,7 @@ is bound, write a message and exit on an error. If
(
defun
frob-packages
()
(
format
t
"Frob packages~%"
)
(
use-package
:asdf
:asdf-test
)
(
when
(
find-package
:
asdf/driver
)
(
use-package
:
asdf/driver
:asdf-test
))
(
when
(
find-package
:
uiop
)
(
use-package
:
uiop
:asdf-test
))
(
when
(
find-package
:asdf/cache
)
(
use-package
:asdf/cache
:asdf-test
))
(
setf
*package*
(
find-package
:asdf-test
))
t
)
...
...
test/unintern-foo.lisp
View file @
8436a56d
...
...
@@ -2,4 +2,4 @@
(
when
(
find-package
:asdf-test/deferred-warnings
)
(
delete-package
:asdf-test/deferred-warnings
)))
(
defpackage
:asdf-test/deferred-warnings
(
:use
:
asdf/driver
:asdf
/common-lisp
))
(
defpackage
:asdf-test/deferred-warnings
(
:use
:
uiop
:uiop
/common-lisp
))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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