forked from mirrors/org-mode
de42649f7b
e85080 is the last correct commit in the maint branch before releasing 7.8.04. The 7.8.05 release should be done from this commit.
38 lines
1.1 KiB
EmacsLisp
38 lines
1.1 KiB
EmacsLisp
;;; test-ob-awk.el --- tests for ob-awk.el
|
|
|
|
;; Copyright (c) 2010 Sergey Litvinov
|
|
;; Authors: Sergey Litvinov
|
|
|
|
;; Released under the GNU General Public License version 3
|
|
;; see: http://www.gnu.org/licenses/gpl-3.0.html
|
|
|
|
(org-test-for-executable "awk")
|
|
|
|
(let ((load-path (cons (expand-file-name
|
|
".." (file-name-directory
|
|
(or load-file-name buffer-file-name)))
|
|
load-path)))
|
|
(require 'org-test)
|
|
(require 'org-test-ob-consts))
|
|
|
|
(require 'ob-awk)
|
|
|
|
(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)))))
|
|
|