From fb317be318aaf32104e9334d34813681c26ac240 Mon Sep 17 00:00:00 2001 Message-ID: From: Ihor Radchenko Date: Thu, 2 May 2024 15:07:12 +0300 Subject: [PATCH] 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 Link: https://list.orgmode.org/orgmode/91dfeb0fed1a1fe0564e5eb9b95a409d@condition-alpha.com/ --- testing/lisp/test-ob-calc.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/testing/lisp/test-ob-calc.el b/testing/lisp/test-ob-calc.el index 6d6ca104d..e5f2cee0b 100644 --- a/testing/lisp/test-ob-calc.el +++ b/testing/lisp/test-ob-calc.el @@ -59,7 +59,14 @@ (ert-deftest ob-calc/matrix-inversion () 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." -- 2.44.0