Commit 0c928266 authored by Artur Malabarba's avatar Artur Malabarba

* test/automated/cl-lib-tests.el (cl-lib-struct-constructors): Small fix

parent 39dbd1cd
......@@ -222,8 +222,8 @@
(def . ,(or `nil `(nil))))
t)))))
(ert-deftest cl-lib-struct-constructors ()
(should (equal (documentation 'cl-lib--con-2 t)
"Constructor docstring."))
(should (string-match "\\`Constructor docstring."
(documentation 'cl-lib--con-2 t)))
(should (mystruct-p (cl-lib--con-1)))
(should (mystruct-p (cl-lib--con-2))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment