[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r117001: Fix cl-the test
From: |
Daniel Colascione |
Subject: |
[Emacs-diffs] trunk r117001: Fix cl-the test |
Date: |
Mon, 21 Apr 2014 01:29:04 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r117001: Fix cl-the test,
Daniel Colascione <=