Add more dired-x tests

* test/lisp/dired-x-tests.el (dired-x--string-to-number): Add more
tests with various thousands separators.

diff --git a/test/lisp/dired-x-tests.el b/test/lisp/dired-x-tests.el
index c6ac7c602ea27c00529da7a2cffb6a8d71cc6dce..69c88c060a14fd6a67a47c0a9a72de158223676a 100644 (file)
--- 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