Преглед на файлове

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