diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-08-31 11:15:48 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-08-31 11:15:48 +0200 |
| commit | 6f3cf12e4fb6c810ebf37c8819dc2ee39b02199e (patch) | |
| tree | 32ea1de28e6303b14a007c8d9e28e57dfbc0066e /test/lisp/calc | |
| parent | db2fed3bdfb351c3283e481829ce687931d27a3d (diff) | |
| parent | ac7936cb8f4d4d6706535bfcea0d97741c2ca15f (diff) | |
| download | emacs-6f3cf12e4fb6c810ebf37c8819dc2ee39b02199e.tar.gz emacs-6f3cf12e4fb6c810ebf37c8819dc2ee39b02199e.tar.bz2 emacs-6f3cf12e4fb6c810ebf37c8819dc2ee39b02199e.zip | |
Merge from origin/emacs-26
ac7936cb8f Rename thread-alive-p to thread-live-p
3d09d533d1 rcirc: Document /reconnect as a built-in command (Bug#29656)
a1e615618d * test/lisp/calc/calc-tests.el (calc-imaginary-i): New test.
Diffstat (limited to 'test/lisp/calc')
| -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)) |