Fix cl-the test

2 files changed, 6 insertions, 5 deletions

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  <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 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)))