Commit 2cde41a4 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

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

Thanks to tcr for suggestions.
parent bcb976e6
...@@ -171,21 +171,18 @@ if [ -z "${DEBUG_ASDF_TEST}" ] ; then ...@@ -171,21 +171,18 @@ if [ -z "${DEBUG_ASDF_TEST}" ] ; then
command="$command $nodebug" command="$command $nodebug"
fi fi
create_asds () { create_config () {
mkdir -p {conf.d,dir1,dir2/{dir3,dir4}} mkdir -p ../tmp/test-source-registry-conf.d ../tmp/test-asdf-output-translations-conf.d
for i in dir1 dir2; do touch "$i"/test.asd; done
for i in dir3 dir4; do (cd dir2/$i; touch test.asd); done
} }
clean_up () { 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 if [ -z "$command" ] ; then
echo "Error: cannot find or do not know how to run Lisp named $lisp" echo "Error: cannot find or do not know how to run Lisp named $lisp"
else else
create_asds create_config
mkdir -p results mkdir -p results
echo $command echo $command
thedate=`date "+%Y-%m-%d"` thedate=`date "+%Y-%m-%d"`
......
...@@ -23,4 +23,10 @@ ...@@ -23,4 +23,10 @@
(make-pathname :name nil :type "bar" :directory '(:absolute "tmp")) (make-pathname :name nil :type "bar" :directory '(:absolute "tmp"))
(make-pathname :name "." :type nil :directory '(:absolute "tmp")) (make-pathname :name "." :type nil :directory '(:absolute "tmp"))
(make-pathname :name "." :type "" :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")))
) )
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment