diff options
| author | Stefan Monnier | 2019-06-26 10:04:52 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-06-26 10:04:52 -0400 |
| commit | 4e302630ae050ce13455519e8e72e43c8ea45a81 (patch) | |
| tree | 96339a113c15d21b1ce3cda0ddfaae212d593b4b | |
| parent | 698ff554ac2699ec48fefc85a1307cbc4a183b0d (diff) | |
| download | emacs-4e302630ae050ce13455519e8e72e43c8ea45a81.tar.gz emacs-4e302630ae050ce13455519e8e72e43c8ea45a81.zip | |
* test/lisp/calc/calc-tests.el (test-math-bignum, test-calc-23889): Disable
Not applicable any more with native bignums.
| -rw-r--r-- | test/lisp/calc/calc-tests.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test/lisp/calc/calc-tests.el b/test/lisp/calc/calc-tests.el index 8afec593b1e..96c75119c9c 100644 --- a/test/lisp/calc/calc-tests.el +++ b/test/lisp/calc/calc-tests.el | |||
| @@ -62,11 +62,11 @@ An existing calc stack is reused, otherwise a new one is created." | |||
| 62 | (calc-top-n 1)) | 62 | (calc-top-n 1)) |
| 63 | (calc-pop 0))) | 63 | (calc-pop 0))) |
| 64 | 64 | ||
| 65 | (ert-deftest test-math-bignum () | 65 | ;; (ert-deftest test-math-bignum () |
| 66 | ;; bug#17556 | 66 | ;; ;; bug#17556 |
| 67 | (let ((n (math-bignum most-negative-fixnum))) | 67 | ;; (let ((n (math-bignum most-negative-fixnum))) |
| 68 | (should (math-negp n)) | 68 | ;; (should (math-negp n)) |
| 69 | (should (cl-notany #'cl-minusp (cdr n))))) | 69 | ;; (should (cl-notany #'cl-minusp (cdr n))))) |
| 70 | 70 | ||
| 71 | (ert-deftest test-calc-remove-units () | 71 | (ert-deftest test-calc-remove-units () |
| 72 | (should (calc-tests-equal (calc-tests-simple #'calc-remove-units "-1 m") -1))) | 72 | (should (calc-tests-equal (calc-tests-simple #'calc-remove-units "-1 m") -1))) |
| @@ -95,7 +95,7 @@ An existing calc stack is reused, otherwise a new one is created." | |||
| 95 | 95 | ||
| 96 | (ert-deftest test-calc-23889 () | 96 | (ert-deftest test-calc-23889 () |
| 97 | "Test for https://debbugs.gnu.org/23889 and 25652." | 97 | "Test for https://debbugs.gnu.org/23889 and 25652." |
| 98 | (skip-unless (>= math-bignum-digit-length 9)) | 98 | (skip-unless t) ;; (>= math-bignum-digit-length 9)) |
| 99 | (dolist (mode '(deg rad)) | 99 | (dolist (mode '(deg rad)) |
| 100 | (let ((calc-angle-mode mode)) | 100 | (let ((calc-angle-mode mode)) |
| 101 | ;; If user inputs angle units, then should ignore `calc-angle-mode'. | 101 | ;; If user inputs angle units, then should ignore `calc-angle-mode'. |