Fix cl-the test

diff --git a/test/ChangeLog b/test/ChangeLog
index 2e6e1aefeb1bd030778768830086580906b49248..942455ad22b3b9edaa66d6c4f1aff6f29d6228c8 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,6 +1,7 @@
 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>
 

diff --git a/test/automated/cl-lib.el b/test/automated/cl-lib.el
index 2c73c82ba9814759882e7dfb3d041ad41ddda957..8bf1482a30adf34d5bc5025f9d7bd3660d37f453 100644 (file)
--- 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)))