Sfoglia il codice sorgente

splitting large tests up into smaller units

  This make it easier to track down the cause of failing tests.
Eric Schulte 13 anni fa
parent
commit
eb02808f97
1 ha cambiato i file con 7 aggiunte e 10 eliminazioni
  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 "}")