diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2017-02-12 12:55:11 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2017-02-12 12:55:29 -0800 |
| commit | d4429dfd4975c3a084467fa3b07ac715ed4a2d60 (patch) | |
| tree | 38d1dc95c0b54f3cef11313cfd8c20c9862b4a64 /test/src/fns-tests.el | |
| parent | 0769c9957852236dd913fd617fdbc79ad581341c (diff) | |
| download | emacs-d4429dfd4975c3a084467fa3b07ac715ed4a2d60.tar.gz emacs-d4429dfd4975c3a084467fa3b07ac715ed4a2d60.tar.bz2 emacs-d4429dfd4975c3a084467fa3b07ac715ed4a2d60.zip | |
Fix typos in tests for lax-plist-get etc.
Problem reported by Eli Zaretskii (Bug#25606#62).
* test/src/fns-tests.el (test-cycle-lax-plist-get)
(test-cycle-plist-put, test-cycle-lax-plist-put):
Fix tests to match behavior.
Diffstat (limited to 'test/src/fns-tests.el')
| -rw-r--r-- | test/src/fns-tests.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index 160d0f106e9..a1b48a643e1 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el @@ -473,12 +473,12 @@ (should (lax-plist-get d2 1)) (should-error (lax-plist-get c1 2) :type 'circular-list) (should (lax-plist-get c2 2)) - (should-not (lax-plist-get d1 2)) + (should-error (lax-plist-get d1 2) :type 'wrong-type-argument) (should (lax-plist-get d2 2)) (should-error (lax-plist-get c1 3) :type 'circular-list) (should-error (lax-plist-get c2 3) :type 'circular-list) - (should-not (lax-plist-get d1 3)) - (should-not (lax-plist-get d2 3)))) + (should-error (lax-plist-get d1 3) :type 'wrong-type-argument) + (should-error (lax-plist-get d2 3) :type 'wrong-type-argument))) (ert-deftest test-cycle-plist-member () (let ((c1 (cyc1 1)) @@ -509,12 +509,12 @@ (should (plist-put d2 1 1)) (should-error (plist-put c1 2 2) :type 'circular-list) (should (plist-put c2 2 2)) - (should (plist-put d1 2 2)) + (should-error (plist-put d1 2 2) :type 'wrong-type-argument) (should (plist-put d2 2 2)) (should-error (plist-put c1 3 3) :type 'circular-list) (should-error (plist-put c2 3 3) :type 'circular-list) - (should (plist-put d1 3 3)) - (should (plist-put d2 3 3)))) + (should-error (plist-put d1 3 3) :type 'wrong-type-argument) + (should-error (plist-put d2 3 3) :type 'wrong-type-argument))) (ert-deftest test-cycle-lax-plist-put () (let ((c1 (cyc1 1)) @@ -527,12 +527,12 @@ (should (lax-plist-put d2 1 1)) (should-error (lax-plist-put c1 2 2) :type 'circular-list) (should (lax-plist-put c2 2 2)) - (should (lax-plist-put d1 2 2)) + (should-error (lax-plist-put d1 2 2) :type 'wrong-type-argument) (should (lax-plist-put d2 2 2)) (should-error (lax-plist-put c1 3 3) :type 'circular-list) (should-error (lax-plist-put c2 3 3) :type 'circular-list) - (should (lax-plist-put d1 3 3)) - (should (lax-plist-put d2 3 3)))) + (should-error (lax-plist-put d1 3 3) :type 'wrong-type-argument) + (should-error (lax-plist-put d2 3 3) :type 'wrong-type-argument))) (ert-deftest test-cycle-equal () (should-error (equal (cyc1 1) (cyc1 1))) |