From 308576fd440fe2437ea7af64061478d08316325f Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Thu, 18 Feb 2021 21:49:14 +0300 Subject: [PATCH] Added a new test. --- t/core.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/t/core.lisp b/t/core.lisp index 1c6394e1..4c63972f 100644 --- a/t/core.lisp +++ b/t/core.lisp @@ -20,7 +20,8 @@ (asdf:component-version system)))))) -(deftest test-lisp-implementation +(deftest test-absent-system-info (testing "Checking if we can get system info and it will have the version from ASDF" - (ok (equal (lisp-implementation-type) - "SBCL")))) + (let ((info (cl-info:get-system-info :unknown-system))) + (ok (not (null info))) + (ok (cl-info:absent-p info)))))