aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorSean Allred <code@seanallred.com>2014-12-26 17:49:11 -0500
committerSean Allred <code@seanallred.com>2014-12-26 17:50:19 -0500
commit0db8321f1dbb827666ef79bdae19b4864cb524ac (patch)
treeed8eeb818cd78d18b597839fcf25dd843b2b4677 /test
parent0354bf2c974b13967558187936918db4af125571 (diff)
parenta919c72f2b58d889bf3fbdde100f9912a90c64ab (diff)
Merge branch 'master' into visit-question-from-link
Conflicts: sx.el Conflict arose from 6eb53ee0f12dd9f7d444e6749f6cc55c6db62078
Diffstat (limited to 'test')
-rw-r--r--test/tests.el16
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'"