aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2019-06-26 10:04:52 -0400
committerStefan Monnier2019-06-26 10:04:52 -0400
commit4e302630ae050ce13455519e8e72e43c8ea45a81 (patch)
tree96339a113c15d21b1ce3cda0ddfaae212d593b4b
parent698ff554ac2699ec48fefc85a1307cbc4a183b0d (diff)
downloademacs-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.el12
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'.