Use test fixture for sample data

See (info "(ert) Fixtures and Test Suites").

1 files changed, 17 insertions, 14 deletions

diff --git a/test/test-macros.el b/test/test-macros.el
index 6a1910c..8bdd527 100644
--- a/test/test-macros.el
+++ b/test/test-macros.el
@@ -1,18 +1,21 @@
+(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))
+
 (ert-deftest macro-test--sx-assoc-let ()
   "Tests macro expansion for `sx-assoc-let'"
-  (let ((prototype '((test . nil) (test-one . 1) (test-two . 2)
-                     (link . "http://meta.emacs.stackexchange.com/"))))
-    (let ((data (copy-tree prototype)))
-      (should
-       (null (let-alist data .site))))
-
-    (let ((data (copy-tree prototype)))
-      (should
-       (equal (sx-assoc-let data .site)
-              "meta.emacs")))
+  (sx-test-with-json-data data
+    (should
+     (null (let-alist data .site))))
 
-    (let ((data (copy-tree prototype)))
-      (should
-       (equal (sx-assoc-let data (cons .test-one .test-two))
-              '(1 . 2))))))
+  (sx-test-with-json-data data
+    (should
+     (equal (sx-assoc-let data .site)
+            "meta.emacs")))
 
+  (sx-test-with-json-data data
+    (should
+     (equal (sx-assoc-let data (cons .test-one .test-two))
+            '(1 . 2)))))