ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'origin-maint' 

Conflicts:
	testing/lisp/test-ob.el
This commit is contained in:
Eric Schulte 2012-01-30 09:02:51 -07:00
parent f2df757dae eb02808f97
commit d03b013e2c
1 changed files with 66 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -863,6 +863,72 @@ Line 3\"
* next heading"))
(ert-deftest test-org-babel/inline-src_blk-preceded-punct-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)))))))
(ert-deftest test-org-babel/inline-src-block-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)))))))
(ert-deftest test-org-babel/inline-src-block-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-block-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