Jelajahi Sumber

minor test cleanup

Eric Schulte 14 tahun lalu
induk
melakukan
6fa1ae974a
2 mengubah file dengan 2 tambahan dan 3 penghapusan
  1. 0 1
      testing/lisp/test-ob-lob.el
  2. 2 2
      testing/lisp/test-ob-sh.el

+ 0 - 1
testing/lisp/test-ob-lob.el

@@ -33,7 +33,6 @@
       "69fbe856-ca9c-4f20-9146-826d2f488c1d"
     (move-beginning-of-line 1)
     (forward-line 1)
-    (message (buffer-substring (point-at-bol) (point-at-eol)))
     (should (string= "testing" (org-babel-lob-execute
 				(org-babel-lob-get-info))))
     (forward-line 1)

+ 2 - 2
testing/lisp/test-ob-sh.el

@@ -25,9 +25,9 @@
   "Expanded shell bodies should not start with a blank line
 unless the body of the tangled block does."
   (should-not (string-match "^[\n\r][\t ]*[\n\r]"
-			    (org-babel-expand-body:sh "echo 2" '())))
+			    (org-babel-expand-body:generic "echo 2" '())))
   (should (string-match "^[\n\r][\t ]*[\n\r]"
-			(org-babel-expand-body:sh "\n\necho 2" '()))))
+			(org-babel-expand-body:generic "\n\necho 2" '()))))
 
 (ert-deftest test-ob-sh/dont-error-on-empty-results ()
   "Was throwing an elisp error when shell blocks threw errors and