summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <eric.schulte@gmx.com>2012-01-30 08:54:25 -0700
committerEric Schulte <eric.schulte@gmx.com>2012-01-30 08:54:25 -0700
commiteb02808f975d70420f1328cdb343fe0a9d7a4746 (patch)
tree2aa613c3f19b8a6b8b96bb827fce3d8e88b2540a
parent660e30b39c021ab7d1003d79f2e0debe1cba450c (diff)
downloadorg-mode-eb02808f975d70420f1328cdb343fe0a9d7a4746.tar.gz
splitting large tests up into smaller units
This make it easier to track down the cause of failing tests.
-rw-r--r--testing/lisp/test-ob.el17
1 files changed, 7 insertions, 10 deletions
diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el
index e7e1eea..988ef33 100644
--- a/testing/lisp/test-ob.el
+++ b/testing/lisp/test-ob.el
@@ -588,10 +588,7 @@ 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
+(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
@@ -599,9 +596,9 @@ on two lines
(org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=")
(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\" }"))
(org-test-with-temp-text
test-line
@@ -609,9 +606,9 @@ on two lines
(org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=")
(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\" }"))
(org-test-with-temp-text
(concat test-line ")")
@@ -619,9 +616,9 @@ on two lines
(org-ctrl-c-ctrl-c)
(should (string= (concat test-line " =\"x\"=)" )
(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\" }"))
(org-test-with-temp-text
(concat test-line "}")