mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

added edbug specs for testing macro

Browse Source 
* testing/lisp/test-property-inheritance.el (test-org-in-property-buffer):
  Added edbug spec.
* testing/org-test.el (org-test-at-id): Added edbug spec.
  (org-test-in-example-file): Added edbug spec.
This commit is contained in:
Eric Schulte 2012-01-11 10:11:15 -07:00
parent a3e4459bee
commit 7423c15d3e
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
testing/lisp/test-property-inheritance.el
View File

@ -19,6 +19,7 @@
org-test-example-dir))
(org-mode)
,@body))
(def-edebug-spec test-org-in-property-buffer (body))
(ert-deftest test-org-property-accumulation-top-use ()
(test-org-in-property-buffer

2
testing/org-test.el
View File

@ -146,6 +146,7 @@ currently executed.")
(save-restriction ,@body)))
(unless visited-p
(kill-buffer to-be-removed))))
(def-edebug-spec org-test-at-id (form body))
(defmacro org-test-in-example-file (file &rest body)
"Execute body in the Org-mode example file."
@ -169,6 +170,7 @@ currently executed.")
(save-restriction ,@body)))
(unless visited-p
(kill-buffer to-be-removed))))
(def-edebug-spec org-test-in-example-file (form body))
(defmacro org-test-at-marker (file marker &rest body)
"Run body after placing the point at MARKER in FILE.