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
0
Issues
0
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
Didier Verna
asdf
Commits
0999c0db
Commit
0999c0db
authored
Jan 10, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Stop using tmp/ algother during testing.
parent
d2bbf816
Changes
9
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
35 additions
and
31 deletions
+35
-31
test/run-tests.sh
test/run-tests.sh
+8
-8
test/test-builtin-source-file-type-1.asd
test/test-builtin-source-file-type-1.asd
+0
-5
test/test-builtin-source-file-type-2.asd
test/test-builtin-source-file-type-2.asd
+0
-5
test/test-builtin-source-file-type-3.asd
test/test-builtin-source-file-type-3.asd
+0
-5
test/test-builtin-source-file-type-4.asd
test/test-builtin-source-file-type-4.asd
+0
-5
test/test-builtin-source-file-type.script
test/test-builtin-source-file-type.script
+24
-0
test/test-configuration.script
test/test-configuration.script
+1
-1
test/test-logical-pathname.script
test/test-logical-pathname.script
+1
-1
test/test-multiple.script
test/test-multiple.script
+1
-1
No files found.
test/run-tests.sh
View file @
0999c0db
...
...
@@ -90,7 +90,7 @@ do_tests() {
echo
"
$test_pass
passing and
$test_fail
failing"
>
&2
if
[
$test_fail
-eq
0
]
;
then
echo
"all tests apparently successful"
>
&2
echo
success
>
../
tmp
/results/status
echo
success
>
../
build
/results/status
else
echo
"failing test(s):
$failed_list
"
>
&2
fi
...
...
@@ -192,7 +192,7 @@ fi
ASDFDIR
=
"
$(
cd
..
;
/bin/pwd
)
"
export
CL_SOURCE_REGISTRY
=
"
${
ASDFDIR
}
"
export
ASDF_OUTPUT_TRANSLATIONS
=
"(:output-translations (
\"
${
ASDFDIR
}
\"
(
\"
${
ASDFDIR
}
/
tmp
/fasls
\"
:implementation)) :ignore-inherited-configuration)"
export
ASDF_OUTPUT_TRANSLATIONS
=
"(:output-translations (
\"
${
ASDFDIR
}
\"
(
\"
${
ASDFDIR
}
/
build
/fasls
\"
:implementation)) :ignore-inherited-configuration)"
env
|
grep
asdf
command
=
"
$command
$flags
"
...
...
@@ -202,23 +202,23 @@ fi
create_config
()
{
mkdir
-p
../
tmp/test-source-registry-conf.d ../tmp
/test-asdf-output-translations-conf.d
mkdir
-p
../
build/test-source-registry-conf.d ../build
/test-asdf-output-translations-conf.d
}
clean_up
()
{
rm
-rf
../
tmp/test-source-registry-conf.d ../tmp
/test-asdf-output-translations-conf.d
rm
-rf
../
build/test-source-registry-conf.d ../build
/test-asdf-output-translations-conf.d
}
if
[
-z
"
$command
"
]
;
then
echo
"Error: cannot find or do not know how to run Lisp named
$lisp
"
else
create_config
mkdir
-p
../
tmp
/results
echo
failure
>
../
tmp
/results/status
mkdir
-p
../
build
/results
echo
failure
>
../
build
/results/status
thedate
=
`
date
"+%Y-%m-%d"
`
do_tests
"
$command
"
"
$eval
"
2>&1 |
\
tee
"../
tmp/results/
${
lisp
}
.text"
"../tmp
/results/
${
lisp
}
-
${
thedate
}
.save"
read
a < ../
tmp
/results/status
tee
"../
build/results/
${
lisp
}
.text"
"../build
/results/
${
lisp
}
-
${
thedate
}
.save"
read
a < ../
build
/results/status
clean_up
[
success
=
"
$a
"
]
## exit code
fi
test/test-builtin-source-file-type-1.asd
deleted
100644 → 0
View file @
d2bbf816
(
defsystem
test-builtin-source-file-type-1
:default-component-class
cl-source-file.cl
:serial
t
:components
((
:cl-source-file
"file1"
)
; for the package
(
:file
"test-tmp"
)))
test/test-builtin-source-file-type-2.asd
deleted
100644 → 0
View file @
d2bbf816
(
defsystem
test-builtin-source-file-type-2
:default-component-class
cl-source-file.cl
:serial
t
:components
((
:file
"file1"
:type
"lisp"
)
; for package
(
:file
"test-tmp"
)))
test/test-builtin-source-file-type-3.asd
deleted
100644 → 0
View file @
d2bbf816
(
defsystem
test-builtin-source-file-type-3
:default-component-class
cl-source-file.lsp
:serial
t
:components
((
:cl-source-file
"file1"
)
; for the package
(
:file
"test-tmp"
)))
test/test-builtin-source-file-type-4.asd
deleted
100644 → 0
View file @
d2bbf816
(
defsystem
test-builtin-source-file-type-4
:default-component-class
cl-source-file.lsp
:serial
t
:components
((
:file
"file1"
:type
"lisp"
)
; for package
(
:file
"test-tmp"
)))
test/test-builtin-source-file-type.script
View file @
0999c0db
...
...
@@ -6,6 +6,12 @@
(quit-on-error
(format t "~D~%" (asdf:asdf-version))
(defsystem test-builtin-source-file-type-1
:default-component-class cl-source-file.cl
:serial t
:components ((:cl-source-file "file1") ; for the package
(:file "test-tmp")))
(load-system 'test-builtin-source-file-type-1 :verbose t)
(assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
(assert-equal
...
...
@@ -13,8 +19,20 @@
(mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))
'("lisp" "cl"))
(delete-package :test-package)
(defsystem test-builtin-source-file-type-2
:default-component-class cl-source-file.cl
:serial t
:components ((:file "file1" :type "lisp") ; for package
(:file "test-tmp")))
(asdf:load-system 'test-builtin-source-file-type-2 :verbose t)
(assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
(defsystem test-builtin-source-file-type-3
:default-component-class cl-source-file.lsp
:serial t
:components ((:cl-source-file "file1") ; for the package
(:file "test-tmp")))
(asdf:load-system 'test-builtin-source-file-type-3 :verbose t)
(assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
(assert-equal
...
...
@@ -22,5 +40,11 @@
(mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))
'("lisp" "cl"))
(delete-package :test-package)
(defsystem test-builtin-source-file-type-4
:default-component-class cl-source-file.lsp
:serial t
:components ((:file "file1" :type "lisp") ; for package
(:file "test-tmp")))
(asdf:load-system 'test-builtin-source-file-type-4 :verbose t)
(assert (symbol-value (read-from-string "test-package::*test-tmp-cl*"))))
test/test-configuration.script
View file @
0999c0db
...
...
@@ -6,7 +6,7 @@
(use-package :asdf-test)
#+gcl<2.7 (defmacro with-standard-io-syntax (&body body) `(progn ,@body))
(defparameter *tmp-directory* (subpathname *asdf-directory* "
tmp
/"))
(defparameter *tmp-directory* (subpathname *asdf-directory* "
build
/"))
(setf *central-registry* nil)
(defun under-tmp-directory (designator &optional (defaults *tmp-directory*))
...
...
test/test-logical-pathname.script
View file @
0999c0db
...
...
@@ -10,7 +10,7 @@
`(("**;*.asd.*" ,(make-pathname :type "asd" :defaults (asdf::wilden *asdf-directory*)))
("**;*.lisp.*" ,(make-pathname :type "lisp" :defaults (asdf::wilden *asdf-directory*)))
("**;*.*.*" ,(resolve-location
`(,*asdf-directory* "
tmp
/fasls" :implementation "logical-host-asdf")
`(,*asdf-directory* "
build
/fasls" :implementation "logical-host-asdf")
:wilden t))))
(quit-on-error
...
...
test/test-multiple.script
View file @
0999c0db
...
...
@@ -7,7 +7,7 @@
(quit-on-error
(let* ((asd (subpathname *test-directory* "test-multiple.asd"))
(tmp (subpathname *test-directory* "../
tmp
/"))
(tmp (subpathname *test-directory* "../
build
/"))
(asd2 (subpathname tmp "test-multiple-too.asd"))
(file4 (compile-file-pathname* "file4")))
(setf *central-registry* `(,*test-directory* ,tmp))
...
...
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