diff options
author | Eric Schulte <eric.schulte@gmx.com> | 2012-01-30 08:54:25 -0700 |
---|---|---|
committer | Eric Schulte <eric.schulte@gmx.com> | 2012-01-30 08:54:25 -0700 |
commit | eb02808f975d70420f1328cdb343fe0a9d7a4746 (patch) | |
tree | 2aa613c3f19b8a6b8b96bb827fce3d8e88b2540a | |
parent | 660e30b39c021ab7d1003d79f2e0debe1cba450c (diff) | |
download | org-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.el | 17 |
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 "}") |