From e7d2df998bdb0b9a634affaff3da5efe40a01973 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Tue, 15 Apr 2014 15:56:53 -0500
Subject: [PATCH] Check for an appropriate lisp-invocation version.

---
 test/test-program.script | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/test/test-program.script b/test/test-program.script
index 70d51ee3..b4ee174f 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -23,8 +23,10 @@
   ;; try harder by enabling the user's source-registry
   (initialize-source-registry ""))
 (unless (find-system :lisp-invocation nil)
-  (leave-test "Couldn't find lisp-invocation. Skipping the rest the test." 0))
+  (leave-test "Couldn't find lisp-invocation. Skipping the rest of the test." 0))
 (load-system :lisp-invocation)
+(unless (version-satisfies (find-system :lisp-invocation) "1")
+  (leave-test "Lisp-invocation library isn't new enough to test successfully. Skipping test-program." 0))
 ;; Disable any user source registry.
 (initialize-source-registry `(:source-registry :ignore-inherited-configuration))
 
-- 
GitLab