branch: externals/compat
commit bf5b987481b0c8a5d2284407c1967ba5111ef790
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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)))
