[elpa] externals/compat bf5b987481 11/11: Fix test

[ELPA Syncer]

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

    Fix test
---
 compat-tests.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 69a8d5bbf6..49ea6159ac 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -300,20 +300,20 @@
   (should (equal t (always 1 2 3 4))))             ;; multiple arguments
 
 (ert-deftest file-size-human-readable ()
-  (should (equal "1000" (file-size-human-readable 1000)))
-  (should (equal "1k" (file-size-human-readable 1024)))
-  (should (equal "1M" (file-size-human-readable (* 1024 1024))))
-  (should (equal "1G" (file-size-human-readable (expt 1024 3))))
-  (should (equal "1T" (file-size-human-readable (expt 1024 4))))
-  (should (equal "1k" (file-size-human-readable 1000 'si)))
-  (should (equal "1KiB" (file-size-human-readable 1024 'iec)))
-  (should (equal "1KiB" (file-size-human-readable 1024 'iec)))
-  (should (equal "1 KiB" (file-size-human-readable 1024 'iec " ")))
-  (should (equal "1KiA" (file-size-human-readable 1024 'iec nil "A")))
-  (should (equal "1 KiA" (file-size-human-readable 1024 'iec " " "A")))
-  (should (equal "1kA" (file-size-human-readable 1000 'si nil "A")))
-  (should (equal "1 k" (file-size-human-readable 1000 'si " ")))
-  (should (equal "1 kA" (file-size-human-readable 1000 'si " " "A"))))
+  (should (equal "1000" (compat-call file-size-human-readable 1000)))
+  (should (equal "1k" (compat-call file-size-human-readable 1024)))
+  (should (equal "1M" (compat-call file-size-human-readable (* 1024 1024))))
+  (should (equal "1G" (compat-call file-size-human-readable (expt 1024 3))))
+  (should (equal "1T" (compat-call file-size-human-readable (expt 1024 4))))
+  (should (equal "1k" (compat-call file-size-human-readable 1000 'si)))
+  (should (equal "1KiB" (compat-call file-size-human-readable 1024 'iec)))
+  (should (equal "1KiB" (compat-call file-size-human-readable 1024 'iec)))
+  (should (equal "1 KiB" (compat-call file-size-human-readable 1024 'iec " ")))
+  (should (equal "1KiA" (compat-call file-size-human-readable 1024 'iec nil 
"A")))
+  (should (equal "1 KiA" (compat-call file-size-human-readable 1024 'iec " " 
"A")))
+  (should (equal "1kA" (compat-call file-size-human-readable 1000 'si nil 
"A")))
+  (should (equal "1 k" (compat-call file-size-human-readable 1000 'si " ")))
+  (should (equal "1 kA" (compat-call file-size-human-readable 1000 'si " " 
"A"))))
 
 (ert-deftest file-modes-number-to-symbolic ()
   (should (equal "-rwx------" (file-modes-number-to-symbolic #o700)))