From eb02808f975d70420f1328cdb343fe0a9d7a4746 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Mon, 30 Jan 2012 08:54:25 -0700 Subject: [PATCH] splitting large tests up into smaller units This make it easier to track down the cause of failing tests. --- testing/lisp/test-ob.el | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index e7e1eea8a..988ef3358 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 "}")