From: Noam Postavsky <npostavs@gmail.com>
Date: Thu, 30 Aug 2018 02:47:00 +0000 (-0400)
Subject: * test/lisp/calc/calc-tests.el (calc-imaginary-i): New test.
X-Git-Tag: emacs-26.1.90~178
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1e615618dfef25c7fd14cbe1a16bdacca1148f4;p=emacs.git

* test/lisp/calc/calc-tests.el (calc-imaginary-i): New test.
---

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))