ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added edbug specs for testing macro 

* 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-test-example-dir))
(org-mode) (org-mode)
,@body)) ,@body))
(def-edebug-spec test-org-in-property-buffer (body))
(ert-deftest test-org-property-accumulation-top-use () (ert-deftest test-org-property-accumulation-top-use ()
(test-org-in-property-buffer (test-org-in-property-buffer

2
testing/org-test.el
View File

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