2011-09-12 12:07:21 -04:00
|
|
|
;;; test-ob-awk.el --- tests for ob-awk.el
|
|
|
|
|
2012-01-03 12:47:01 -05:00
|
|
|
;; Copyright (c) 2010-2012 Sergey Litvinov
|
2011-09-12 12:42:22 -04:00
|
|
|
;; 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
|
|
|
|
|
2012-02-29 11:08:32 -05:00
|
|
|
;;; Code:
|
2011-09-21 18:34:43 -04:00
|
|
|
(org-test-for-executable "awk")
|
2012-02-29 11:08:32 -05:00
|
|
|
(unless (featurep 'ob-awk)
|
|
|
|
(signal 'missing-test-dependency "Support for Awk code blocks"))
|
2011-07-24 06:28:35 -04:00
|
|
|
|
|
|
|
(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
|
|
|
|