Differences

This shows you the differences between two versions of the page.

--- tutorials:beginner:testing [2019/07/11 13:05] – gkazhoya
+++ tutorials:beginner:testing [2022/03/15 10:12] (current) – [Integrating into the ASDF testing operation] schimpf
@@ Line 19: / Line 19: @@
 <code lisp>
 (defsystem cram-my-beginner-tutorial-tests
   :depends-on (cram-my-beginner-tutorial
                lisp-unit))
 </code>
@@ Line 100: / Line 100: @@
 <code lisp>
 (defsystem cram-my-beginner-tutorial-tests
   :depends-on (cram-my-beginner-tutorial
                lisp-unit
                cl-transforms
@@ Line 199: / Line 199: @@
          (pose-msg (roslisp:make-message 'turtlesim-msg:pose))
          (angle (tut::relative-angle-to goal pose-msg)))
-    (assert-number-equal angle pi))
+    (assert-number-equal angle pi)))
 </code>
-Unfortunately, if we rerun the tests now we will still get T as a result, as ASDF expects the testing library to throw an
+Now let us rerun the tests:
-error if the tests fail, and ours does not.
-In the future, we might want to tweak the library such that it does throw errors but for now just remember how the
-integration with the ASDF interfaces works.
-So let us see, though, if the test actually failed:
 <code lisp>
-CL-USER> (lisp-unit:run-tests :all :cram-my-beginner-tutorial-tests)
+CL-USER> (asdf:test-system :cram-my-beginner-tutorial-tests)
 Unit Test Summary
  | 2 assertions total
@@ Line 219: / Line 214: @@
  | 0 missing tests
-#<TEST-RESULTS-DB Total(2) Passed(1) Failed(1) Errors(0)>
+T
 </code>
-To get more detailed information, set the ''*print-failures*'' parameter to T:
+To get more detailed information, set the ''*print-failures*'' parameter of ''lisp-unit'' to T:
 <code lisp>
 CL-USER> (setf lisp-unit:*print-failures* t)
 T
-CL-USER> (lisp-unit:run-tests :all :cram-my-beginner-tutorial-tests)
+CL-USER> (asdf:test-system :cram-my-beginner-tutorial-tests)
  | Failed Form: PI
  | Expected 0.0d0 but saw 3.141592653589793d0