[Git][cmucl/cmucl][master] Use lisp-unit::assert-true instead of cl:assert

[Raymond Toy]

Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
042d8a07 by Raymond Toy at 2016-12-01T19:55:02-08:00
Use lisp-unit::assert-true instead of cl:assert

Don't use cl:assert for the lisp-unit test; it should use lisp-unit
assertions.

- - - - -


1 changed file:

- tests/issues.lisp


Changes:

=====================================
tests/issues.lisp
=====================================
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -340,13 +340,13 @@
         (if filename
             (push filename files)
             (push directory directories))))
-    (assert (null (set-difference files
-                                  '("file" "link-to-dir"
-                                    "link-to-dir-in-dir" "link-to-file")
-                                  :test #'string-equal)))
-    (assert (null (set-difference directories
-                                  '(".dir" "dir")
-                                  :test #'string-equal)))))
+    (assert-true (null (set-difference files
+				       '("file" "link-to-dir"
+					 "link-to-dir-in-dir" "link-to-file")
+				       :test #'string-equal)))
+    (assert-true (null (set-difference directories
+				       '(".dir" "dir")
+				       :test #'string-equal)))))
 
 (define-test issue.36
     (:tag :issues)



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/042d8a077f6193faa67b0536f99b5319db646f6f
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20161202/0b1b1e9a/attachment.html>