فهرست منبع

splitting large tests up into smaller units

  This make it easier to track down the cause of failing tests.
Eric Schulte 13 سال پیش
والد
کامیت
eb02808f97
1فایلهای تغییر یافته به همراه7 افزوده شده و 10 حذف شده
  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 "}")