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

Fix cl-the test

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