ob-calc/matrix-inversion: Force `calc-float-format' in the test

* testing/lisp/test-ob-calc.el (ob-calc/matrix-inversion): When
testing, make sure that calc output follows the expected format.
This is needed on MacOS where Emacs defaults are not exactly the same.

Reported-by: Alexander Adolf <alexander.adolf@condition-alpha.com>
Link: https://list.orgmode.org/orgmode/91dfeb0fed1a1fe0564e5eb9b95a409d@condition-alpha.com/
This commit is contained in:
Ihor Radchenko 2024-05-02 15:07:12 +03:00
parent ac7c5c5d88
commit d8ac958836
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 8 additions and 1 deletions

View File

@ -67,7 +67,14 @@
inv(a)
#+END_SRC "
(should (equal "[[-1, 0.625, -0.125], [0.25, -0.5, 0.25], [0.5, 0.125, -0.125]]"
(org-babel-execute-src-block)))))
(let ((calc-float-format '(float 0)))
;; ;; Make sure that older Calc buffers are not present.
(save-current-buffer
(when (ignore-errors (calc-select-buffer))
(kill-buffer)))
;; Now, let-bound `calc-float-format' will take
;; effect.
(org-babel-execute-src-block))))))
(ert-deftest ob-calc/matrix-algebra ()
"Test of simple matrix algebra."