From 8a7cdebb208a06b85d75e052ab22edc8bab25c19 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sat, 20 Jan 2024 14:54:21 +0100 Subject: compat-tests: Fix closing parenthesis of compat-copy-tree --- compat-tests.el | 22 +++++++++++----------- 1 file 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")) -- cgit v1.0