diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-01-20 14:54:21 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-01-20 14:54:21 +0100 |
| commit | 8a7cdebb208a06b85d75e052ab22edc8bab25c19 (patch) | |
| tree | 02d4cc6c6e4d0e5d5ec9e7840437ead8ddaf0497 | |
| parent | 9d5f99fcaacfa1931524e444c5a42246166f32aa (diff) | |
compat-tests: Fix closing parenthesis of compat-copy-tree
| -rw-r--r-- | compat-tests.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/compat-tests.el b/compat-tests.el index 29d0500..717ac76 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -3036,17 +3036,17 @@ (should (eq (car (compat-call copy-tree lst)) rec)) (should-not (eq (car (compat-call copy-tree lst t)) rec)) (should (eq (cadr (compat-call copy-tree lst)) rec)) - (should-not (eq (cadr (compat-call copy-tree lst t)) rec)))) - -;; Use the printer to detect common parts of Lisp values. -(let ((print-circle t)) - (cl-labels ((prn3 (x y z) (prin1-to-string (list x y z))) - (cat3 (x y z) (concat "(" x " " y " " z ")"))) - (let ((x '(a (b ((c) . d) e) (f)))) - (should-equal (prn3 x (compat-call copy-tree x) (compat-call copy-tree x t)) - (cat3 "(a (b ((c) . d) e) (f))" - "(a (b ((c) . d) e) (f))" - "(a (b ((c) . d) e) (f))"))))) + (should-not (eq (cadr (compat-call copy-tree lst t)) rec))) + + ;; Use the printer to detect common parts of Lisp values. + (let ((print-circle t)) + (cl-labels ((prn3 (x y z) (prin1-to-string (list x y z))) + (cat3 (x y z) (concat "(" x " " y " " z ")"))) + (let ((x '(a (b ((c) . d) e) (f)))) + (should-equal (prn3 x (compat-call copy-tree x) (compat-call copy-tree x t)) + (cat3 "(a (b ((c) . d) e) (f))" + "(a (b ((c) . d) e) (f))" + "(a (b ((c) . d) e) (f))")))))) (ert-deftest compat-static-if () (should-equal "true" (static-if t "true")) |