From: Daniel Colascione Date: Mon, 21 Apr 2014 01:28:55 +0000 (-0700) Subject: Fix cl-the test X-Git-Tag: emacs-25.0.90~2640^2~206 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c8d94555ce550d87afd6293bf5d17e864c13864;p=emacs.git Fix cl-the test --- diff --git a/test/ChangeLog b/test/ChangeLog index 2e6e1aefeb1..942455ad22b 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,6 +1,7 @@ 2014-04-21 Daniel Colascione * automated/cl-lib.el (cl-loop-destructuring-with): New test. + (cl-the): Fix cl-the test. 2014-04-20 Daniel Colascione diff --git a/test/automated/cl-lib.el b/test/automated/cl-lib.el index 2c73c82ba98..8bf1482a30a 100644 --- a/test/automated/cl-lib.el +++ b/test/automated/cl-lib.el @@ -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)))