diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2018-08-29 22:47:00 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2018-08-29 22:47:00 -0400 |
| commit | a1e615618dfef25c7fd14cbe1a16bdacca1148f4 (patch) | |
| tree | 402bafe98bbb3857e70263dc3e999419a54ea602 /test | |
| parent | 2670cbf9a87eb498d73770c381ca51657d390a1e (diff) | |
| download | emacs-a1e615618dfef25c7fd14cbe1a16bdacca1148f4.tar.gz | |
* test/lisp/calc/calc-tests.el (calc-imaginary-i): New test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/calc/calc-tests.el | 7 |
1 files changed, 7 insertions, 0 deletions
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)) |