testing/lisp/test-ob-octave.el

   1 ;;; test-ob-octave.el --- tests for ob-octave.el
   2
   3 ;; Copyright (c) 2010-2012 Sergey Litvinov
   4 ;; Authors: Sergey Litvinov
   5
   6 ;; Released under the GNU General Public License version 3
   7 ;; see: http://www.gnu.org/licenses/gpl-3.0.html
   8
   9 (org-test-for-executable "octave")
  10
  11 (let ((load-path (cons (expand-file-name
  12                         ".." (file-name-directory
  13                               (or load-file-name buffer-file-name)))
  14                        load-path)))
  15   (require 'org-test)
  16   (require 'org-test-ob-consts))
  17
  18 (require 'ob-octave)
  19
  20 (ert-deftest ob-octave/input-none ()
  21   "Number output"
  22   (org-test-at-id "54dcd61d-cf6c-4d7a-b9e5-854953c8a753"
  23     (org-babel-next-src-block)
  24     (should (= 10 (org-babel-execute-src-block)))))
  25
  26 (ert-deftest ob-octave/output-vector ()
  27   "Vector output"
  28   (org-test-at-id "54dcd61d-cf6c-4d7a-b9e5-854953c8a753"
  29     (org-babel-next-src-block 2)
  30     (should (equal '((1 2 3 4)) (org-babel-execute-src-block)))))
  31
  32 (ert-deftest ob-octave/input-variable ()
  33   "Input variable"
  34   (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba"
  35     (org-babel-next-src-block)
  36     (should (= 42 (org-babel-execute-src-block)))))
  37
  38 (ert-deftest ob-octave/input-array ()
  39   "Input an array"
  40   (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba"
  41     (org-babel-next-src-block 2)
  42     (should (equal '((1 2 3)) (org-babel-execute-src-block)))))
  43
  44 (ert-deftest ob-octave/input-matrix ()
  45   "Input a matrix"
  46   (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba"
  47     (org-babel-next-src-block 3)
  48     (should (equal '((1 2) (3 4)) (org-babel-execute-src-block)))))
  49
  50 (ert-deftest ob-octave/input-string ()
  51   "Input a string"
  52   (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba"
  53     (org-babel-next-src-block 4)
  54     (should (equal "te" (org-babel-execute-src-block)))))
  55
  56 (ert-deftest ob-octave/input-nil ()
  57   "Input elisp nil"
  58   (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba"
  59     (org-babel-next-src-block 5)
  60     (should (equal nil (org-babel-execute-src-block)))))