Browse Source

splitting large tests up into smaller units

  This make it easier to track down the cause of failing tests.
Eric Schulte 13 years ago
parent
commit
eb02808f97
1 changed files with 7 additions and 10 deletions
  1. 7 10
      testing/lisp/test-ob.el

+ 7 - 10
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 "}")