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
Pascal J. Bourguignon
asdf
Commits
2cde41a4
Commit
2cde41a4
authored
Feb 13, 2010
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add trivial tests for version-satisfies, and fix some non-portability in run-tests.sh
Thanks to tcr for suggestions.
parent
bcb976e6
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
7 deletions
+10
-7
test/run-tests.sh
test/run-tests.sh
+4
-7
test/test-utilities.script
test/test-utilities.script
+6
-0
No files found.
test/run-tests.sh
View file @
2cde41a4
...
...
@@ -171,21 +171,18 @@ if [ -z "${DEBUG_ASDF_TEST}" ] ; then
command
=
"
$command
$nodebug
"
fi
create_asds
()
{
mkdir
-p
{
conf.d,dir1,dir2/
{
dir3,dir4
}}
for
i
in
dir1 dir2
;
do
touch
"
$i
"
/test.asd
;
done
for
i
in
dir3 dir4
;
do
(
cd
dir2/
$i
;
touch
test.asd
)
;
done
create_config
()
{
mkdir
-p
../tmp/test-source-registry-conf.d ../tmp/test-asdf-output-translations-conf.d
}
clean_up
()
{
rm
-rf
{
conf.d,dir?
}
rm
-rf
../tmp/test-source-registry-conf.d ../tmp/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_
asds
create_
config
mkdir
-p
results
echo
$command
thedate
=
`
date
"+%Y-%m-%d"
`
...
...
test/test-utilities.script
View file @
2cde41a4
...
...
@@ -23,4 +23,10 @@
(make-pathname :name nil :type "bar" :directory '(:absolute "tmp"))
(make-pathname :name "." :type nil :directory '(:absolute "tmp"))
(make-pathname :name "." :type "" :directory '(:absolute "tmp")))))
(assert
(asdf::version-satisfies (asdf:asdf-version) (asdf:asdf-version)))
(assert
(asdf::version-satisfies (asdf:asdf-version) "1.608"))
(assert
(not (asdf::version-satisfies (asdf:asdf-version) "666")))
)
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