Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
4d77d02b
Commit
4d77d02b
authored
Oct 17, 2011
by
Francois-Rene Rideau
Browse files
Cleanup some tests
parent
9b3ac744
Changes
5
Hide whitespace changes
Inline
Side-by-side
test/file1.lisp
View file @
4d77d02b
(
defpackage
:test-package
(
:use
:cl
))
(
in-package
:test-package
)
(
defvar
*file1*
t
)
test/script-support.lisp
View file @
4d77d02b
...
...
@@ -44,6 +44,13 @@
#+
allegro
(
setf
excl:*warn-on-nested-reader-conditionals*
nil
)
(
defun
native-namestring
(
x
)
(
let*
((
p
(
pathname
x
)))
#+
clozure
(
ccl:native-translated-namestring
p
)
#+
(
or
cmu
scl
)
(
ext:unix-namestring
p
)
#+
sbcl
(
sb-ext:native-namestring
p
)
#-
(
or
clozure
cmu
sbcl
scl
)
(
namestring
p
)))
;;; code adapted from cl-launch http://www.cliki.net/cl-launch
(
defun
leave-lisp
(
message
return
)
(
fresh-line
*error-output*
)
...
...
test/test-multiple.script
View file @
4d77d02b
...
...
@@ -13,8 +13,8 @@
(setf asdf:*central-registry* `(*default-pathname-defaults* ,tmp))
(assert (= 0 (asdf:run-shell-command
(format nil "/bin/ln -sf ~A ~A"
(
#-scl namestring #+scl ext:unix
-namestring asd)
(
#-scl namestring #+scl ext:unix
-namestring asd2
#+scl nil
)))))
(
native
-namestring asd)
(
native
-namestring asd2)))))
(asdf:oos 'asdf:load-source-op 'test-multiple-too)
(assert (symbol-value (find-symbol (string :*file3*) :test-package)))
(asdf:load-system 'test-multiple-free)
...
...
test/test.lisp
View file @
4d77d02b
;;;; Example lisp code.
(
in-package
:cl-user
)
(
defun
tst
(
x
)
(
1+
x
))
(
defun
add10
(
x
)
(
+
x
10
))
test/test3.script
View file @
4d77d02b
...
...
@@ -6,8 +6,8 @@
(cl-user::quit-on-error
(let* ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp")))
(fasl2 (asdf:compile-file-pathname* (truename "file2.lisp")))
(ns1 (
#-scl namestring #+scl ext:unix
-namestring fasl1))
(ns2 (
#-scl namestring #+scl ext:unix
-namestring fasl2)))
(ns1 (
native
-namestring fasl1))
(ns2 (
native
-namestring fasl2)))
(asdf:run-shell-command "rm -f ~A ~A" ns1 ns2)
(setf asdf:*central-registry* '(*default-pathname-defaults*))
#-gcl
...
...
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