Merge ef7dd81 into 8cc7116

cl-info-test.asd

@@ -1,6 +1,6 @@
 (defsystem cl-info-test
-  :author ""
-  :license ""
+  :author "Alexander Artemenko"
+  :license "BSD"
   :class :package-inferred-system
   :pathname "t"
   :depends-on ("hamcrest"
@@ -9,4 +9,4 @@
 
   :perform (test-op (op c)
                     (unless (symbol-call :rove :run c)
-                           (error "Tests failed"))))
+                      (error "Tests failed"))))

src/core.lisp

@@ -1,12 +1,21 @@
-(defpackage #:cl-info
+(uiop:define-package #:cl-info
    (:nicknames #:cl-info/core)
    (:use #:cl)
    (:import-from #:mgl-pax-minimal
                  #:defsection
                  #:reader)
    (:export #:cl-info
             #:get-cl-info
-            #:get-system-info))
+            #:get-system-info
+            #:get-software-version
+            #:get-software-type
+            #:get-lisp-version
+            #:get-lisp-type
+            #:get-asdf-version
+            #:get-version
+            #:get-name
+            #:absent-p
+            #:get-path))
 (in-package cl-info/core)
 
 

t/core.lisp

@@ -1,20 +1,20 @@
-(defpackage #:cl-info-test/core
+(uiop:define-package #:cl-info-test/core
   (:use #:cl)
   (:import-from #:cl-info)
   (:import-from #:hamcrest/rove
                 #:contains
                 #:assert-that)
   (:import-from #:rove
                 #:testing
+                #:ok
                 #:deftest))
 (in-package cl-info-test/core)
 
 
-(defun foo (a b)
-  (list a b))
-
-
-(deftest test-some-staff
-  (testing "Replace this test with real staff."
-    (assert-that (foo 1 2)
-                 (contains 1 2))))
+(deftest test-system-info
+    (testing "Checking if we can get system info and it will have the version from ASDF"
+             (let ((info (cl-info:get-system-info :cl-info))
+                   (system (asdf:find-system :cl-info)))
+               (ok (not (null info)))
+               (ok (equal (cl-info:get-version info)
+                          (asdf:component-version system))))))