From 7423c15d3e28780c8489dd5fe9066932a53f23e7 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Wed, 11 Jan 2012 10:11:15 -0700 Subject: [PATCH] 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. --- testing/lisp/test-property-inheritance.el | 1 + testing/org-test.el | 2 ++ 2 files changed, 3 insertions(+) diff --git a/testing/lisp/test-property-inheritance.el b/testing/lisp/test-property-inheritance.el index 8e079fc1c..247841308 100644 --- a/testing/lisp/test-property-inheritance.el +++ b/testing/lisp/test-property-inheritance.el @@ -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 diff --git a/testing/org-test.el b/testing/org-test.el index a9e3706ed..949afc819 100644 --- a/testing/org-test.el +++ b/testing/org-test.el @@ -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.