Commit 0c8d9455 authored by Daniel Colascione's avatar Daniel Colascione

Fix cl-the test

parent 2fa1b97d
2014-04-21 Daniel Colascione <dancol@dancol.org>
* automated/cl-lib.el (cl-loop-destructuring-with): New test.
(cl-the): Fix cl-the test.
2014-04-20 Daniel Colascione <dancol@dancol.org>
......
......@@ -214,11 +214,11 @@
'((cl-tag-slot) (abc :readonly t) (def))))))
(ert-deftest cl-the ()
(should (eql (the integer 42) 42))
(should-error (the integer "abc"))
(let ((sideffect 0))
(should (= (the integer (incf sideffect)) 1))
(should (= sideffect 1))))
(should (eql (cl-the integer 42) 42))
(should-error (cl-the integer "abc"))
(let ((side-effect 0))
(should (= (cl-the integer (cl-incf side-effect)) 1))
(should (= side-effect 1))))
(ert-deftest cl-loop-destructuring-with ()
(should (equal (cl-loop with (a b c) = '(1 2 3) return (+ a b c)) 6)))
......
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