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
16
Issues
16
List
Boards
Labels
Service Desk
Milestones
Merge Requests
8
Merge Requests
8
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
asdf
asdf
Commits
4d77d02b
Commit
4d77d02b
authored
Oct 17, 2011
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Cleanup some tests
parent
9b3ac744
Changes
5
Show whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
15 additions
and
5 deletions
+15
-5
test/file1.lisp
test/file1.lisp
+0
-1
test/script-support.lisp
test/script-support.lisp
+7
-0
test/test-multiple.script
test/test-multiple.script
+2
-2
test/test.lisp
test/test.lisp
+4
-0
test/test3.script
test/test3.script
+2
-2
No files found.
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