diff --git a/test/test-utilities.script b/test/test-utilities.script index 2d0cbe300346448273af3c6f1dcdfcaf59824894..b24d52bca6cc1801e2e9e1e0db5b49d66d0b8b86 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -31,6 +31,13 @@ (assert (version-satisfies (asdf-version) (asdf-version))) (assert (version-satisfies (asdf-version) "3.0")) (assert (version-satisfies (asdf-version) "2.0")) +(assert (version-satisfies (find-system :test-asdf) "666")) +(handler-case (version-satisfies (find-system :test-asdf) "666") + (simple-warning (c) + (assert-equal (simple-condition-format-control c) + "Requested version ~S but component ~S has no version")) + (:no-error (x) + (error "version-satisfies must warn when given component without version"))) (assert (version<= "2.0" (asdf-version))) (assert (not (version-satisfies (asdf-version) "666"))) (assert-pathnames-equal