[Emacs-diffs] trunk r117001: Fix cl-the test

[Daniel Colascione]

------------------------------------------------------------
revno: 117001
revision-id: address@hidden
parent: address@hidden
committer: Daniel Colascione <address@hidden>
branch nick: trunk
timestamp: Sun 2014-04-20 18:28:55 -0700
message:
  Fix cl-the test
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/cl-lib.el       cllib.el-20130711160611-o23w1tyz0y13jq8e-1

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2014-04-21 01:03:39 +0000
+++ b/test/ChangeLog    2014-04-21 01:28:55 +0000
@@ -1,6 +1,7 @@
 2014-04-21  Daniel Colascione  <address@hidden>
 
        * automated/cl-lib.el (cl-loop-destructuring-with): New test.
+       (cl-the): Fix cl-the test.
 
 2014-04-20  Daniel Colascione  <address@hidden>
 

=== modified file 'test/automated/cl-lib.el'
--- a/test/automated/cl-lib.el  2014-04-21 01:03:39 +0000
+++ b/test/automated/cl-lib.el  2014-04-21 01:28:55 +0000
@@ -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)))