From a1e615618dfef25c7fd14cbe1a16bdacca1148f4 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Wed, 29 Aug 2018 22:47:00 -0400 Subject: [PATCH] * test/lisp/calc/calc-tests.el (calc-imaginary-i): New test. --- test/lisp/calc/calc-tests.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/test/lisp/calc/calc-tests.el b/test/lisp/calc/calc-tests.el index fbd5f0e3a1d..101786c30e3 100644 --- a/test/lisp/calc/calc-tests.el +++ b/test/lisp/calc/calc-tests.el @@ -86,6 +86,13 @@ An existing calc stack is reused, otherwise a new one is created." (math-read-expr "1m") "cm") '(* -100 (var cm var-cm))))) +(ert-deftest calc-imaginary-i () + "Test `math-imaginary-i' for non-special-const values." + (let ((var-i (calcFunc-polar (calcFunc-sqrt -1)))) + (should (math-imaginary-i))) + (let ((var-i (calcFunc-sqrt -1))) + (should (math-imaginary-i)))) + (ert-deftest test-calc-23889 () "Test for https://debbugs.gnu.org/23889 and 25652." (skip-unless (>= math-bignum-digit-length 9)) -- 2.39.2