Add more dired-x tests

* test/lisp/dired-x-tests.el (dired-x--string-to-number): Add more
tests with various thousands separators.
This commit is contained in:
Eli Zaretskii 2021-12-03 21:52:49 +02:00
parent 7558e83097
commit c8b72ad0ea

View file

@ -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