mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-25 07:27:57 +00:00
Code

inline src block tests by Martyn Jago

Browse Source 
* testing/lisp/test-ob.el (test-org-babel/inline-src_blk-preceded-punct):
  Inline src block tests by Martyn Jago.
This commit is contained in:
Eric Schulte 2012-01-30 08:51:17 -07:00
parent 843ac278f9
commit 660e30b39c
1 changed files with 69 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
testing/lisp/test-ob.el
View File

@ -588,6 +588,75 @@ on two lines
(org-babel-balanced-split ":a 1 :b [2 3] :c (4 :d (5 6))"
'((32 9) . 58)))))
(ert-deftest test-org-babel/inline-src_blk-preceded-punct ()
"Test inline source block where preceded by punctuation"
;; inline-src-blk preceded by point
(let ((test-line ".src_emacs-lisp[ :results verbatim ]{ \"x\" }"))
(org-test-with-temp-text
test-line
(forward-char 1)
(org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=")
(buffer-substring-no-properties
(point-min) (point-max))))))
;; inline-src-blk preceded by equality
(let ((test-line "=src_emacs-lisp[ :results verbatim ]{ \"x\" }"))
(org-test-with-temp-text
test-line
(forward-char 1)
(org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=")
(buffer-substring-no-properties
(point-min) (point-max))))))
;; inline-src-blk enclosed within parenthesis
(let ((test-line "(src_emacs-lisp[ :results verbatim ]{ \"x\" }"))
(org-test-with-temp-text
(concat test-line ")")
(forward-char 1)
(org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=)" )
(buffer-substring-no-properties
(point-min) (point-max))))))
;; inline-src-blk enclosed within parenthesis
(let ((test-line "{src_emacs-lisp[ :results verbatim ]{ \"x\" }"))
(org-test-with-temp-text
(concat test-line "}")
(forward-char 1)
(org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=}")
(buffer-substring-no-properties
(point-min) (point-max)))))))
(ert-deftest test-org-babel/inline-src_blk-preceded-by-letter ()
"Test inline source block invalid where preceded by letter"
;; inline-src-blk preceded by letter
(org-test-with-temp-text
"asrc_emacs-lisp[ :results verbatim ]{ \"x\" }"
(forward-char 1)
(let ((error-result
(should-error
(org-ctrl-c-ctrl-c))))
(should (equal `(error "C-c C-c can do nothing useful at this location")
error-result)))))
(ert-deftest test-org-babel/inline-src_blk-preceded-by-number ()
"Test inline source block invalid where preceded by number"
;; inline-src-blk preceded by number
(org-test-with-temp-text
"0src_emacs-lisp[ :results verbatim ]{ \"x\" }"
(forward-char 1)
(let ((error-result
(should-error
(org-ctrl-c-ctrl-c))))
(should (equal `(error "C-c C-c can do nothing useful at this location")
error-result)))))
(provide 'test-ob)
;;; test-ob ends here