diff --git a/test/run-tests.sh b/test/run-tests.sh index 2c389daefc932a376b338da444a9d98a427a5d81..a170ec7b34155e0e05da711e3a2d835304354616 100755 --- a/test/run-tests.sh +++ b/test/run-tests.sh @@ -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"` diff --git a/test/test-utilities.script b/test/test-utilities.script index 19eacc18a3cfdb0866f078710dfb421adc70bdf2..a7216d5d20d5b9507603edb41da9b0efe89f01b4 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -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"))) )