diff options
author | Bastien <bzg@gnu.org> | 2020-02-19 10:56:10 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-02-19 10:56:10 +0100 |
commit | f90642e82838c7fea99781a0977fd6fa26aceee1 (patch) | |
tree | 4ca75d7120021b5186494e60a9f5dd636c27b5c1 | |
parent | d0018ce62c60379d19abf6d5010cf4281f1ec9d3 (diff) | |
download | org-mode-f90642e82838c7fea99781a0977fd6fa26aceee1.tar.gz |
test-ob.el: Fix and enhance tests
* testing/lisp/test-ob.el (test-ob/string-to-number): Fix and
enhance tests.
-rw-r--r-- | testing/lisp/test-ob.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index 681f340..97e1b49 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -2120,14 +2120,16 @@ abc (org-babel-execute-src-block)))))) (ert-deftest test-ob/string-to-number () - (should (= 0 (org-babel--string-to-number "0"))) - (should (= 1 (org-babel--string-to-number "1"))) - (should (eq nil (org-babel--string-to-number "000"))) - (should (eq nil (org-babel--string-to-number "001"))) - (should (eq nil (org-babel--string-to-number "010"))) - (should (= 100 (org-babel--string-to-number "100"))) - (should (= 0.1 (org-babel--string-to-number "0.1"))) - (should (= 1.0 (org-babel--string-to-number "1.0")))) + (should (= 0 (org-babel--string-to-number "0"))) + (should (= 1 (org-babel--string-to-number "1"))) + (should (eq nil (org-babel--string-to-number "1 2"))) + (should (= 1000.0 (org-babel--string-to-number "1e3"))) + (should (eq 0 (org-babel--string-to-number "000"))) + (should (eq 1 (org-babel--string-to-number "001"))) + (should (eq 10 (org-babel--string-to-number "010"))) + (should (= 100 (org-babel--string-to-number "100"))) + (should (= 0.1 (org-babel--string-to-number "0.1"))) + (should (= 1.0 (org-babel--string-to-number "1.0")))) (provide 'test-ob) |