From 0c8d94555ce550d87afd6293bf5d17e864c13864 Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Sun, 20 Apr 2014 18:28:55 -0700 Subject: [PATCH] Fix cl-the test --- test/ChangeLog | 1 + test/automated/cl-lib.el | 10 +++++----- 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 * 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))) -- 2.39.5