diff options
author | Eli Zaretskii <eliz@gnu.org> | 2021-12-03 21:52:49 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2021-12-03 21:52:49 +0200 |
commit | c8b72ad0eaf63cfe73542b6014e76a2111df6820 (patch) | |
tree | 577f0928b534fd5b5d61132079073b159d8544dd /test | |
parent | 7558e830970b4c111e2854f0c6674889b029998e (diff) | |
download | emacs-c8b72ad0eaf63cfe73542b6014e76a2111df6820.tar.gz |
Add more dired-x tests
* test/lisp/dired-x-tests.el (dired-x--string-to-number): Add more
tests with various thousands separators.
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/dired-x-tests.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/lisp/dired-x-tests.el b/test/lisp/dired-x-tests.el index c6ac7c602ea..69c88c060a1 100644 --- a/test/lisp/dired-x-tests.el +++ b/test/lisp/dired-x-tests.el @@ -65,7 +65,10 @@ (should (= (dired-x--string-to-number "2400") 2400)) (should (= (dired-x--string-to-number "123.4M") 129394278.4)) (should (= (dired-x--string-to-number "123.40000M") 129394278.4)) - (should (= (dired-x--string-to-number "4.134") 4134))) + (should (= (dired-x--string-to-number "4.134") 4134)) + (should (= (dired-x--string-to-number "4,134") 4134)) + (should (= (dired-x--string-to-number "4 134") 4134)) + (should (= (dired-x--string-to-number "41,52,134") 4152134))) (provide 'dired-x-tests) ;;; dired-x-tests.el ends here |