Skip to content
Snippets Groups Projects
Commit 2cde41a4 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Add trivial tests for version-satisfies, and fix some non-portability in run-tests.sh

Thanks to tcr for suggestions.
parent bcb976e6
No related branches found
No related tags found
No related merge requests found
......@@ -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"`
......
......@@ -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")))
)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment