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
347bcab6
Commit
347bcab6
authored
Dec 09, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Try to debug test-program.script on CLISP, it unbreaks the test (!)
Tweak some test output.
parent
8e8cb498
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
5 deletions
+8
-5
test/script-support.lisp
test/script-support.lisp
+4
-2
test/test-program.script
test/test-program.script
+4
-3
No files found.
test/script-support.lisp
View file @
347bcab6
...
...
@@ -142,7 +142,7 @@ Some constraints:
(
defun
assert-pathname-equal-helper
(
qx
x
qy
y
)
(
cond
((
equal
x
y
)
(
format
t
"~S and ~S both evaluate to same path:~% ~S~%"
qx
qy
x
))
(
format
t
"~S and
~%
~S both evaluate to same path:~% ~S~%"
qx
qy
x
))
((
ucall
:pathname-equal
x
y
)
(
warn
"These two expressions yield pathname-equal yet not equal path~%~
the first expression ~S yields this:~% ~S~% ~S~%
...
...
@@ -532,7 +532,9 @@ is bound, write a message and exit on an error. If
(
asym
:pathname-equal
))
(
format
t
"Comparing directories~%"
)
(
let
((
x
(
acall
:pathname-directory-pathname
(
nth-value
2
(
acall
:locate-system
:test-asdf
)))))
(
assert-pathname-equal
*test-directory*
x
)
;; not always EQUAL (!)
(
assert-pathname-equal-helper
;; not always EQUAL (!)
'*test-directory*
*test-directory*
'
(
:pathname-directory-pathname
(
nth-value
2
(
:locate-system
:test-asdf
)))
x
)
(
unless
(
equal
*test-directory*
x
)
(
format
t
"Interestingly, while *test-directory* has components~% ~S~%~
ASDF finds the ASDs in~% ~S~%Using the latter.~%"
...
...
test/test-program.script
View file @
347bcab6
...
...
@@ -30,11 +30,12 @@
(delete-file-if-exists exe)
(assert-equal
(
multiple-value-list
(
nth-value 2
(run-program
(symbol-call :lisp-invocation :lisp-invocation-arglist
:load (native-namestring (subpathname *test-directory* "make-hello-world.lisp")))))
'(nil nil 0))
:load (native-namestring (subpathname *test-directory* "make-hello-world.lisp")))
:output t :error-output :output :input nil))
0)
(assert (probe-file* exe))
(assert-equal (run-program `(,(native-namestring exe)) :output :lines)
...
...
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