diff options
| author | Sean Allred <code@seanallred.com> | 2014-12-20 02:22:37 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-12-20 02:22:37 -0500 |
| commit | 7d2cccd82cf6c658e330767d0e20e48e42ff1ac6 (patch) | |
| tree | ef557c866665100c08d90b065f8c75a10e9f7d9e /test | |
| parent | ef1d321a157e300d29c48e461257897fca1c9aa4 (diff) | |
Fix `sx-assoc-let' tests
`require' form is no longer needed -- macro expansion is done with the
expansion of `sx-assoc-let'.
Diffstat (limited to 'test')
| -rw-r--r-- | test/tests.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/test/tests.el b/test/tests.el index 66d8d88..cc58105 100644 --- a/test/tests.el +++ b/test/tests.el @@ -121,14 +121,16 @@ (ert-deftest macro-test--sx-assoc-let () "Tests macro expansion for `sx-assoc-let'" (should - (equal '(progn (require 'let-alist) - (sx--ensure-site data) - (let-alist data .test)) - (macroexpand '(sx-assoc-let data .test)))) + (equal `(progn (sx--ensure-site data) + ,(macroexpand + '(let-alist data .test))) + (macroexpand + '(sx-assoc-let data .test)))) (should - (equal '(progn (require 'let-alist) - (sx--ensure-site data) - (let-alist data (cons .test-one .test-two))) + (equal `(progn (sx--ensure-site data) + ,(macroexpand + '(let-alist data + (cons .test-one .test-two)))) (macroexpand '(sx-assoc-let data (cons .test-one .test-two)))))) |