remove: uiop

greeting.asd

@@ -3,7 +3,7 @@
   :in-order-to ((test-op (test-op "greeting/tests"))))
 
 (asdf:defsystem "greeting/tests"
-  :depends-on ("greeting" "rove" "uiop")
+  :depends-on ("greeting" "rove")
   :pathname "tests/"
   :components ((:file "main"))
   :perform (test-op (o c) (symbol-call :greeting/tests :run-test)))

tests/main.lisp

@@ -1,22 +1,14 @@
 (defpackage :greeting/tests
   (:use :cl
         :rove
-        :uiop
         :greeting))
 (in-package :greeting/tests)
 
 (rove:deftest test-hello1
   (testing "hello common lisp"
-    (ok (string= (greeting:hello "common lisp") "Hello common lisp!")))
-   )
-
-(rove:deftest test-hello2
-(testing "ng case"
-    (ng (string= (greeting:hello "common lisp") "Hello world!")))
- )
-
+    (ok (string= (greeting:hello "common lisp") "Hello common lisp!"))))
 
 (defun run-test ()
   (unless
     (rove:run :greeting/tests)
-    (uiop:quit 1)))
+    (error "Failed tests.")))