From 66cc514eb27a9c50fb0128fa30e55b7609bb9b18 Mon Sep 17 00:00:00 2001 From: Matthew Trzcinski Date: Sun, 17 Mar 2024 16:47:22 +0100 Subject: [PATCH 1/7] testing/lisp/test-ob-comint.el: Make test for prompt filter * test-ob-comint.el: Make new file for comint tests. (test-org-babel-comint/prompt-filter-removes-prompt): Test that the prompt is removed from process buffer output. --- testing/lisp/test-ob-comint.el | 55 ++++++++++++++++++++++++++++++++++ 1 file changed, 55 insertions(+) create mode 100644 testing/lisp/test-ob-comint.el diff --git a/testing/lisp/test-ob-comint.el b/testing/lisp/test-ob-comint.el new file mode 100644 index 000000000..9193ef8f3 --- /dev/null +++ b/testing/lisp/test-ob-comint.el @@ -0,0 +1,55 @@ +;;; test-ob-comint.el -*- lexical-binding: t; -*- + +;; Copyright (c) 2024 Matthew Trzcinski +;; Authors: Matthew Trzcinski + +;; This file is not part of GNU Emacs. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + + +;;; Comment: + +;; See testing/README for how to run tests. + + +;;; Requirements: + + +;;; Code: +(ert-deftest test-org-babel-comint/prompt-filter-removes-prompt () + "Test that prompt is actually removed." + (let* ((prompt "org_babel_sh_prompt> ") + (results "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-trim (string-join (mapcar #'org-trim (org-babel-comint--prompt-filter results prompt)) "\n") "\n") + "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 +\"hello world\" +ob_comint_async_shell_end_d78ac49f-dc8a-4c39-827c-c93225484d59")))) + + +(provide 'test-ob-comint) + +;;; test-ob-comint.el ends here -- 2.41.0