Docstrings for tests

1 files changed, 6 insertions, 5 deletions

diff --git a/test/test-macros.el b/test/test-macros.el
index 8bdd527..2169088 100644
--- a/test/test-macros.el
+++ b/test/test-macros.el
@@ -1,11 +1,12 @@
 (defmacro sx-test-with-json-data (cell &rest body)
-    (declare (indent 1))
-    `(let ((,cell '((test . nil) (test-one . 1) (test-two . 2)
-                   (link . "http://meta.emacs.stackexchange.com/"))))
-       ,@body))
+  "Run BODY with sample data let-bound to CELL"
+  (declare (indent 1))
+  `(let ((,cell '((test . nil) (test-one . 1) (test-two . 2)
+                  (link . "http://meta.emacs.stackexchange.com/"))))
+     ,@body))
 
 (ert-deftest macro-test--sx-assoc-let ()
-  "Tests macro expansion for `sx-assoc-let'"
+  "Test `sx-assoc-let'"
   (sx-test-with-json-data data
     (should
      (null (let-alist data .site))))