[elpa] externals/compat 1a4a5b975c 3/4: Fix faulty args-out-of-range error data

[ELPA Syncer]

branch: externals/compat
commit 1a4a5b975c9ab7a9b7fa3df541253a3765dbe8e9
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Fix faulty args-out-of-range error data
---
 compat-tests.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 2a2475159b..fa42a169dd 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -194,20 +194,20 @@ being compared against."
   (ought 14 "o" (string-to-multibyte
                           (apply #'string (number-sequence ?a ?z))))
   (ought 2 "a\U00010f98z" "a\U00010f98a\U00010f98z")
-  (expect (args-out-of-range -1) "a" "abc" -1)
-  (expect (args-out-of-range 4) "a" "abc" 4)
-  (expect (args-out-of-range 100000000000)
+  (expect (args-out-of-range "abc" -1) "a" "abc" -1)
+  (expect (args-out-of-range "abc" 4) "a" "abc" 4)
+  (expect (args-out-of-range "abc" 100000000000)
                  "a" "abc" 100000000000)
   (ought nil "a" "aaa" 3)
   (ought nil "aa" "aa" 1)
   (ought nil "\0" "")
   (ought 0 "" "")
-  (expect (args-out-of-range 1) "" "" 1)
+  (expect (args-out-of-range "" 1) "" "" 1)
   (ought 0 "" "abc")
   (ought 2 "" "abc" 2)
   (ought 3 "" "abc" 3)
-  (expect (args-out-of-range 4) "" "abc" 4)
-  (expect (args-out-of-range -1) "" "abc" -1)
+  (expect (args-out-of-range "abc" 4) "" "abc" 4)
+  (expect (args-out-of-range "abc" -1) "" "abc" -1)
   (ought nil "ø" "foo\303\270")
   (ought nil "\303\270" "ø")
   (ought nil "\370" "ø")
@@ -310,18 +310,18 @@ being compared against."
                           (apply #'string (number-sequence ?a ?z))))
   (ought 2 "a\U00010f98z" "a\U00010f98a\U00010f98z")
   (expect (args-out-of-range -1) "a" "abc" -1)
-  (expect (args-out-of-range 4) "a" "abc" 4)
-  (expect (args-out-of-range 100000000000)
+  (expect (args-out-of-range "abc" 4) "a" "abc" 4)
+  (expect (args-out-of-range "abc" 100000000000)
                  "a" "abc" 100000000000)
   (ought nil "a" "aaa" 3)
   (ought nil "aa" "aa" 1)
   (ought nil "\0" "")
   (ought 0 "" "")
-  (expect (args-out-of-range 1) "" "" 1)
+  (expect (args-out-of-range "" 1) "" "" 1)
   (ought 0 "" "abc")
   (ought 2 "" "abc" 2)
   (ought 3 "" "abc" 3)
-  (expect (args-out-of-range 4) "" "abc" 4)
+  (expect (args-out-of-range "abc" 4) "" "abc" 4)
   (expect (args-out-of-range -1) "" "abc" -1)
   (ought nil "ø" "foo\303\270")
   (ought nil "\303\270" "ø")