Merge pull request #166 from vermiculus/assoc-let-test

Test sx-assoc-let not let-alist

1 files changed, 5 insertions, 11 deletions

diff --git a/test/tests.el b/test/tests.el
index 8969c37..66d8d88 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -123,20 +123,14 @@
   (should
    (equal '(progn (require 'let-alist)
                   (sx--ensure-site data)
-                  (let ((.test (cdr (assq 'test data))))
-                    .test))
-          (macroexpand-all
-           '(sx-assoc-let data
-              .test))))
+                  (let-alist data .test))
+          (macroexpand '(sx-assoc-let data .test))))
   (should
    (equal '(progn (require 'let-alist)
                   (sx--ensure-site data)
-                  (let ((.test-one (cdr (assq 'test-one data)))
-                        (.test-two (cdr (assq 'test-two data))))
-                    (cons .test-one .test-two)))
-          (macroexpand-all
-           '(sx-assoc-let data
-              (cons .test-one .test-two))))))
+                  (let-alist data (cons .test-one .test-two)))
+          (macroexpand
+           '(sx-assoc-let data (cons .test-one .test-two))))))
 
 (ert-deftest sx--user-@name ()
   "Tests macro expansion for `sx-assoc-let'"