Sfoglia il codice sorgente

test-org-src.el: Fix a test.

* lisp/test-org-src.el (test-org-src/blank-line-block): Use
`org-test-with-temp-text-in-file' because `org-in-src-block-p'
checks against an Org mode text property.  Don't check for the
word at point.

Thanks to Nick Dokos for reporting this failed test.
Bastien Guerry 12 anni fa
parent
commit
c0675b478e
1 ha cambiato i file con 8 aggiunte e 8 eliminazioni
  1. 8 8
      testing/lisp/test-org-src.el

+ 8 - 8
testing/lisp/test-org-src.el

@@ -80,22 +80,22 @@
 
 (ert-deftest test-org-src/blank-line-block ()
   "Editing block with just a blank line."
-  (org-test-with-temp-text
+  (org-test-with-temp-text-in-file
       "
 #+begin_src emacs-lisp
 
 #+end_src
 "
-    (goto-line 3)
-    (org-edit-special)
-    (insert "blah")
-    (org-edit-src-exit)
-    (should (equal (buffer-string) "
+    (progn
+      (goto-line 3)
+      (org-edit-special)
+      (insert "blah")
+      (org-edit-src-exit)
+      (should (equal (buffer-string) "
 #+begin_src emacs-lisp
   blah
 #+end_src
-"))
-    (should (equal (word-at-point) "blah"))))
+")))))
 
 (provide 'test-org-src)
 ;;; test-org-src.el ends here