From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sun, 12 Feb 2017 20:55:11 +0000 (-0800)
Subject: Fix typos in tests for lax-plist-get etc.
X-Git-Tag: emacs-26.0.90~840^2~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4429dfd4975c3a084467fa3b07ac715ed4a2d60;p=emacs.git

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

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