diff options
| -rw-r--r-- | cond-let-tests.el | 41 |
1 files changed, 39 insertions, 2 deletions
diff --git a/cond-let-tests.el b/cond-let-tests.el index ed09754..f9615e2 100644 --- a/cond-let-tests.el +++ b/cond-let-tests.el @@ -133,8 +133,45 @@ (throw ':cond-let*1 (list a b d)))))))) (ert-deftest cond-let-test--102-expand--cond-let () - (cond-let-test--macroexpansion nil nil - )) + (cond-let-test--macroexpansion nil '(nil clause nil) + (cond-let + [[a nil] + [b 'shared] + [c nil]] + ([_(eq a c)] + [b 'clause] + (list a b c)) + (b)) + + (catch ':cond-let1 + (let ((a nil) + (b 'shared) + (c nil)) + (cond-let--when-let + ((_ (eq a c)) + (b 'clause)) + (throw ':cond-let1 (list a b c))) + (let ((anon2 b)) + (when anon2 + (throw ':cond-let1 anon2)))))) + + (cond-let-test--macroexpansion nil 'shared + (cond-let + [[a 'shared]] + ([a 'clause] + [b nil] + (list a b)) + ((eq a 'shared) + a)) + + (catch ':cond-let1 + (let ((a 'shared)) + (cond-let--when-let + ((a 'clause) + (b nil)) + (throw ':cond-let1 (list a b))) + (when (eq a 'shared) + (throw ':cond-let1 a)))))) ;;; And |