diff options
| author | Michael Albinus | 2018-08-31 11:15:48 +0200 |
|---|---|---|
| committer | Michael Albinus | 2018-08-31 11:15:48 +0200 |
| commit | 6f3cf12e4fb6c810ebf37c8819dc2ee39b02199e (patch) | |
| tree | 32ea1de28e6303b14a007c8d9e28e57dfbc0066e /test/lisp | |
| parent | db2fed3bdfb351c3283e481829ce687931d27a3d (diff) | |
| parent | ac7936cb8f4d4d6706535bfcea0d97741c2ca15f (diff) | |
| download | emacs-6f3cf12e4fb6c810ebf37c8819dc2ee39b02199e.tar.gz 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')
| -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." | |||
| 86 | (math-read-expr "1m") "cm") | 86 | (math-read-expr "1m") "cm") |
| 87 | '(* -100 (var cm var-cm))))) | 87 | '(* -100 (var cm var-cm))))) |
| 88 | 88 | ||
| 89 | (ert-deftest calc-imaginary-i () | ||
| 90 | "Test `math-imaginary-i' for non-special-const values." | ||
| 91 | (let ((var-i (calcFunc-polar (calcFunc-sqrt -1)))) | ||
| 92 | (should (math-imaginary-i))) | ||
| 93 | (let ((var-i (calcFunc-sqrt -1))) | ||
| 94 | (should (math-imaginary-i)))) | ||
| 95 | |||
| 89 | (ert-deftest test-calc-23889 () | 96 | (ert-deftest test-calc-23889 () |
| 90 | "Test for https://debbugs.gnu.org/23889 and 25652." | 97 | "Test for https://debbugs.gnu.org/23889 and 25652." |
| 91 | (skip-unless (>= math-bignum-digit-length 9)) | 98 | (skip-unless (>= math-bignum-digit-length 9)) |