2011-09-12 12:07:21 -04:00
|
|
|
;;; test-ob-awk.el --- tests for ob-awk.el
|
|
|
|
|
2011-09-12 12:42:22 -04:00
|
|
|
;; Copyright (c) 2010 Sergey Litvinov
|
|
|
|
;; Authors: Sergey Litvinov
|
2011-09-12 12:07:21 -04:00
|
|
|
|
|
|
|
;; Released under the GNU General Public License version 3
|
|
|
|
;; see: http://www.gnu.org/licenses/gpl-3.0.html
|
|
|
|
|
2011-09-21 18:34:43 -04:00
|
|
|
(org-test-for-executable "awk")
|
|
|
|
|
2011-09-12 12:07:21 -04:00
|
|
|
(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))
|
|
|
|
|
2011-07-24 06:28:35 -04:00
|
|
|
(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)))))
|
2011-09-12 12:07:21 -04:00
|
|
|
|