some more fix to testscr.ros

guicho271828 · Jun 13, 2016 · 2959bf8 · 2959bf8
1 parent dbe0401
commit 2959bf8
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/inlined-generic-function.test.asd b/inlined-generic-function.test.asd
@@ -20,5 +20,9 @@
   :components ((:module "t"
                 :components
                 ((:file "package"))))
-  :perform (test-op :after (op c) (eval (read-from-string "(every #'fiveam::TEST-PASSED-P (5am:run :inlined-generic-function))"))
-))
+  :perform (test-op :after (op c)
+(eval
+ (read-from-string
+  "(let ((res (5am:run :inlined-generic-function)))
+     (5am:explain! res)
+     (every #'5am::TEST-PASSED-P res))"))))
diff --git a/testscr.ros b/testscr.ros
@@ -9,7 +9,11 @@ exec ros -Q -- $0 "$@"
   (uiop:quit (if (handler-case
                      (progn
                        (ql:quickload :inlined-generic-function.test)
-                       (eval (read-from-string "(every #'fiveam::TEST-PASSED-P (5am:run :inlined-generic-function))")))
+(eval
+ (read-from-string
+  "(let ((res (5am:run :inlined-generic-function)))
+     (5am:explain! res)
+     (every #'fiveam::TEST-PASSED-P res))")))
                    (serious-condition (c)
                      (describe c)
                      (uiop:quit 2)))