>From 44bccab228b9dee80672b3a3dd9d27b2cc26c4b3 Mon Sep 17 00:00:00 2001 From: Matthew Trzcinski Date: Sun, 17 Mar 2024 16:56:43 +0100 Subject: [PATCH 3/7] testing/lisp/test-ob-comint.el: Make test for echo filter * test-ob-comint.el: (test-org-babel-comint/echo-filter-removes-echo): Test that echoed input is removed from process buffer output. --- testing/lisp/test-ob-comint.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/testing/lisp/test-ob-comint.el b/testing/lisp/test-ob-comint.el index 9193ef8f3..8f6def8ca 100644 --- a/testing/lisp/test-ob-comint.el +++ b/testing/lisp/test-ob-comint.el @@ -49,6 +49,26 @@ ob_comint_async_shell_start_d78ac49f-dc8a-4c39-827c-c93225484d59 \"hello world\" ob_comint_async_shell_end_d78ac49f-dc8a-4c39-827c-c93225484d59")))) +(ert-deftest test-org-babel-comint/echo-filter-removes-echo () + "Test that echo is actually removed." + (let* ((echo "echo 'ob_comint_async_shell_start_d78ac49f-dc8a-4c39-827c-c93225484d59' +# print message +echo \"hello world\" +echo 'ob_comint_async_shell_end_d78ac49f-dc8a-4c39-827c-c93225484d59'") + (result "org_babel_sh_prompt> echo 'ob_comint_async_shell_start_d78ac49f-dc8a-4c39-827c-c93225484d59' +# print message +echo \"hello world\" +echo 'ob_comint_async_shell_end_d78ac49f-dc8a-4c39-827c-c93225484d59' +ob_comint_async_shell_start_d78ac49f-dc8a-4c39-827c-c93225484d59 +org_babel_sh_prompt> org_babel_sh_prompt> \"hello world\" +org_babel_sh_prompt> ob_comint_async_shell_end_d78ac49f-dc8a-4c39-827c-c93225484d59 +org_babel_sh_prompt> ")) + (should (string= + (org-babel-comint--echo-filter result echo) + "\nob_comint_async_shell_start_d78ac49f-dc8a-4c39-827c-c93225484d59 +org_babel_sh_prompt> org_babel_sh_prompt> \"hello world\" +org_babel_sh_prompt> ob_comint_async_shell_end_d78ac49f-dc8a-4c39-827c-c93225484d59 +org_babel_sh_prompt> ")))) (provide 'test-ob-comint) -- 2.41.0