diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-18 18:49:38 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-22 10:46:41 -0200 |
| commit | c5bcc85d9cb79c080846cb13979938c8be7c0cba (patch) | |
| tree | 5ee1ad71bd138eace92806b32c0a0351613d34e2 /test | |
| parent | 2d68b9d7cfb8c483880b83b3008bf2bd0cd41eb0 (diff) | |
Test sx-assoc-let not let-alist
Since let-alist is no longer defined here. It makes no sense to test its
contents.
Diffstat (limited to 'test')
| -rw-r--r-- | test/tests.el | 16 |
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'" |