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
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
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
Hugo Ishimaru
asdf
Commits
feadbfaf
Commit
feadbfaf
authored
Feb 26, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Better output-translations during testing, particularly during upgrade.
parent
a7754862
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
5 deletions
+9
-5
test/run-tests.sh
test/run-tests.sh
+2
-0
test/script-support.lisp
test/script-support.lisp
+7
-5
No files found.
test/run-tests.sh
View file @
feadbfaf
...
...
@@ -317,6 +317,8 @@ valid_upgrade_test_p () {
}
run_upgrade_tests
()
{
cd
${
ASDFDIR
}
ASDF_OUTPUT_TRANSLATIONS
=
"(:output-translations (
\"
${
ASDFDIR
}
\"
(
\"
${
ASDFDIR
}
/build/fasls/
\"
:implementation
\"
asdf/
\"
)) (t (
\"
${
ASDFDIR
}
/build/fasls/
\"
:implementation
\"
root/
\"
)) :ignore-inherited-configuration)"
export
ASDF_OUTPUT_TRANSLATIONS
su
=
test
/script-support.lisp
for
tag
in
`
upgrade_tags
`
;
do
for
method
in
`
upgrade_methods
`
;
do
...
...
test/script-support.lisp
View file @
feadbfaf
...
...
@@ -448,9 +448,11 @@ is bound, write a message and exit on an error. If
(
defun
clean-asdf-system
()
;; If compiled by an antique ASDFs without output translations:
(
acall
:delete-file-if-exists
(
compile-file-pathname
(
acall
:subpathname
*asdf-directory*
"build/asdf.fasl"
)))
;; If compiled by a ASDF2 or later with output translations:
(
acall
:delete-file-if-exists
(
resolve-output
"asdf"
"build"
"asdf.fasl"
)))
(
flet
((
d
(
x
)
(
acall
:delete-file-if-exists
x
)))
(
let
((
asdf-fasl
(
compile-file-pathname
(
asdf-lisp
))))
(
d
asdf-fasl
)
(
d
(
acall
:apply-output-translations
asdf-fasl
))
(
d
(
asdf-fasl
)))))
(
defun
load-asdf-lisp-clean
()
(
load-asdf-lisp
)
...
...
@@ -470,8 +472,8 @@ is bound, write a message and exit on an error. If
(
when
(
asym
:initialize-output-translations
)
(
acall
:initialize-output-translations
`
(
:output-translations
(
,
(
namestring
*asdf-directory*
)
,
(
output-location
"asdf"
))
(
t
,
(
output-location
"root"
))
(
,
(
acall
:wilden
*asdf-directory*
)
,
(
acall
:wilden
(
resolve-output
"asdf/"
)
))
(
t
,
(
acall
:wilden
(
resolve-output
"root"
)
))
:ignore-inherited-configuration
)))
(
when
(
asym
:*central-registry*
)
(
set
(
asym
:*central-registry*
)
`
(
,
*test-directory*
)))
...
...
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