mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 01:18:39 +00:00
32 lines
998 B
EmacsLisp
32 lines
998 B
EmacsLisp
;;; test-ob-awk.el --- tests for ob-awk.el
|
|
|
|
;; Copyright (c) 2010-2012 Sergey Litvinov
|
|
;; Authors: Sergey Litvinov
|
|
|
|
;; Released under the GNU General Public License version 3
|
|
;; see: http://www.gnu.org/licenses/gpl-3.0.html
|
|
|
|
;;; Code:
|
|
(org-test-for-executable "awk")
|
|
(unless (featurep 'ob-awk)
|
|
(signal 'missing-test-dependency "Support for Awk code blocks"))
|
|
|
|
(ert-deftest ob-awk/input-none ()
|
|
"Test with no input file"
|
|
(org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a"
|
|
(org-babel-next-src-block)
|
|
(should (= 42 (org-babel-execute-src-block)))))
|
|
|
|
(ert-deftest ob-awk/input-src-block ()
|
|
"Test a code block as an input"
|
|
(org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a"
|
|
(org-babel-next-src-block 2)
|
|
(should (= 43 (org-babel-execute-src-block)))))
|
|
|
|
(ert-deftest ob-awk/input-src-block ()
|
|
"Test a code block as an input"
|
|
(org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a"
|
|
(org-babel-next-src-block 3)
|
|
(should (= 150 (org-babel-execute-src-block)))))
|
|
|