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