From 6a10fd80cf2efc0e825fe4512bb4cfd07895de8f Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Thu, 7 Nov 2013 10:38:03 -0500 Subject: [PATCH] Add test for previously fixed issue with version-satisfies. --- test/test-utilities.script | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/test/test-utilities.script b/test/test-utilities.script index 2d0cbe300..b24d52bca 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 -- GitLab