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