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

splitting large tests up into smaller units 

This make it easier to track down the cause of failing tests.
This commit is contained in:
Eric Schulte 2012-01-30 08:54:25 -07:00
parent 660e30b39c
commit eb02808f97
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -588,10 +588,7 @@ on two lines
(org-babel-balanced-split ":a 1 :b [2 3] :c (4 :d (5 6))" (org-babel-balanced-split ":a 1 :b [2 3] :c (4 :d (5 6))"
'((32 9) . 58))))) '((32 9) . 58)))))
(ert-deftest test-org-babel/inline-src_blk-preceded-punct () (ert-deftest test-org-babel/inline-src_blk-preceded-punct-preceded-by-point ()
"Test inline source block where preceded by punctuation"
;; inline-src-blk preceded by point
(let ((test-line ".src_emacs-lisp[ :results verbatim ]{ \"x\" }")) (let ((test-line ".src_emacs-lisp[ :results verbatim ]{ \"x\" }"))
(org-test-with-temp-text (org-test-with-temp-text
test-line test-line
@ -599,9 +596,9 @@ on two lines
(org-ctrl-c-ctrl-c) (org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=") (should (string= (concat test-line " =\"x\"=")
(buffer-substring-no-properties (buffer-substring-no-properties
(point-min) (point-max)))))) (point-min) (point-max)))))))
;; inline-src-blk preceded by equality (ert-deftest test-org-babel/inline-src-block-preceded-by-equality ()
(let ((test-line "=src_emacs-lisp[ :results verbatim ]{ \"x\" }")) (let ((test-line "=src_emacs-lisp[ :results verbatim ]{ \"x\" }"))
(org-test-with-temp-text (org-test-with-temp-text
test-line test-line
@ -609,9 +606,9 @@ on two lines
(org-ctrl-c-ctrl-c) (org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=") (should (string= (concat test-line " =\"x\"=")
(buffer-substring-no-properties (buffer-substring-no-properties
(point-min) (point-max)))))) (point-min) (point-max)))))))
;; inline-src-blk enclosed within parenthesis (ert-deftest test-org-babel/inline-src-block-enclosed-within-parenthesis ()
(let ((test-line "(src_emacs-lisp[ :results verbatim ]{ \"x\" }")) (let ((test-line "(src_emacs-lisp[ :results verbatim ]{ \"x\" }"))
(org-test-with-temp-text (org-test-with-temp-text
(concat test-line ")") (concat test-line ")")
@ -619,9 +616,9 @@ on two lines
(org-ctrl-c-ctrl-c) (org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=)" ) (should (string= (concat test-line " =\"x\"=)" )
(buffer-substring-no-properties (buffer-substring-no-properties
(point-min) (point-max)))))) (point-min) (point-max)))))))
;; inline-src-blk enclosed within parenthesis (ert-deftest test-org-babel/inline-src-block-enclosed-within-parenthesis ()
(let ((test-line "{src_emacs-lisp[ :results verbatim ]{ \"x\" }")) (let ((test-line "{src_emacs-lisp[ :results verbatim ]{ \"x\" }"))
(org-test-with-temp-text (org-test-with-temp-text
(concat test-line "}") (concat test-line "}")