[elpa] externals/compat de37c4c063 2/2: compat-tests: derived-mode-p with multiple arguments has been deprecated

[ELPA Syncer]

branch: externals/compat
commit de37c4c06381078a7700a2d1f8e580baf738c92c
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    compat-tests: derived-mode-p with multiple arguments has been deprecated
    
    See Emacs master e6556db4200ccf28bd9bb033be0d5ce3cd2316a9
---
 compat-tests.el | 19 +++++++------------
 1 file changed, 7 insertions(+), 12 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 13b400b16c..106a565d4e 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1206,24 +1206,19 @@
     (put three 'derived-mode-parent two)
     (should (provided-mode-derived-p one one))
     (should (provided-mode-derived-p two one))
+    (should (provided-mode-derived-p two two))
     (should (provided-mode-derived-p three one))
     (should-not (provided-mode-derived-p one eins))
     (should-not (provided-mode-derived-p two eins))
     (should-not (provided-mode-derived-p two one.5))
-    (should (provided-mode-derived-p two one.5 one))
-    (should (provided-mode-derived-p two one.5 two))
-    (should (provided-mode-derived-p three one.5 one))
-    (should (provided-mode-derived-p three one.5 one two))
-    (should (provided-mode-derived-p three one.5 two one))
-    (should (provided-mode-derived-p three one.5 two one three))
-    (should (provided-mode-derived-p three one.5 three two one))
+    (should (provided-mode-derived-p three one))
+    (should (provided-mode-derived-p three two))
+    (should-not (provided-mode-derived-p three one.5))
     (let ((major-mode three))
+      (should-not (derived-mode-p one.5))
       (should (derived-mode-p one))
-      (should (derived-mode-p one.5 one))
-      (should (derived-mode-p one.5 one two))
-      (should (derived-mode-p one.5 two one))
-      (should (derived-mode-p one.5 two one three))
-      (should (derived-mode-p one.5 three two one)))))
+      (should (derived-mode-p two))
+      (should (derived-mode-p three)))))
 
 (ert-deftest compat-format-prompt ()
   (should-equal "Prompt: " (format-prompt "Prompt" nil))