>From b923d17679ba9c7cb88dd40312534c33eff74dd8 Mon Sep 17 00:00:00 2001 From: Matt Date: Mon, 22 Nov 2021 13:14:01 -0500 Subject: [PATCH 2/2] test-ob-shell.el: Add tests for stdin and cmdline header args * test-ob-shell.el (test-ob-shell/stdin, test-ob-shell/cmdline) Add tests. --- testing/lisp/test-ob-shell.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/testing/lisp/test-ob-shell.el b/testing/lisp/test-ob-shell.el index 2f346f699..b9fcb3819 100644 --- a/testing/lisp/test-ob-shell.el +++ b/testing/lisp/test-ob-shell.el @@ -106,6 +106,19 @@ ob-comint.el, which was not previously tested." "#+BEGIN_SRC sh :results output :var l='(1 2)\necho ${l}\n#+END_SRC" (org-trim (org-babel-execute-src-block)))))) +(ert-deftest test-ob-shell/stdin () + "Confirm stdin passes an org reference" + (org-test-at-id "cc56f3c6-13ec-4026-9d83-3106efd833e2" + (org-babel-next-src-block) + (should (equal "org reference line 1\norg reference line 2" + (org-trim (org-babel-execute-src-block)))))) + +(ert-deftest test-ob-shell/cmdline () + "Confirm cmdline header gets passed in as an argument." + (let ((res (org-babel-execute:sh "echo $1;" '((:cmdline . "foo"))))) + (should res) + (should (equal "foo" res)))) + (provide 'test-ob-shell) ;;; test-ob-shell.el ends here -- 2.34.0