|
From: | Stefan Monnier |
Subject: | Re: [PATCH v2 01/16] Add a test for let-binding unwinding |
Date: | Wed, 25 Nov 2020 15:53:20 -0500 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) |
> diff --git a/test/src/data-tests.el b/test/src/data-tests.el > index 1312683c84..7e69b9c331 100644 > --- a/test/src/data-tests.el > +++ b/test/src/data-tests.el > @@ -364,6 +364,28 @@ comparing the subr with a much slower lisp > implementation." > (should (equal (default-value var) (symbol-value var)))) > (should (equal (default-value var) def)))))) > > +(ert-deftest data-tests--let-buffer-local-no-unwind-other-buffers () > + "Test that a let-binding for a buffer-local unwinds only current-buffer" Missing "." at the end. > + (let ((blvar (make-symbol "blvar"))) > + (set-default blvar 0) > + (make-variable-buffer-local blvar) > + (dolist (var (list blvar 'left-margin)) > + (let* ((def (default-value var)) > + (newdef (+ def 1)) > + (otherbuf (generate-new-buffer "otherbuf"))) > + (with-temp-buffer > + (cl-progv (list var) (list newdef) > + (with-current-buffer otherbuf > + (set var 123) > + (should (local-variable-p var)) > + (should (equal (symbol-value var) 123)) > + (should (equal (default-value var) newdef)))) > + (with-current-buffer otherbuf > + (should (local-variable-p var)) > + (should (equal (symbol-value var) 123)) > + (should (equal (default-value var) def))) > + ))))) LGTM Stefan
[Prev in Thread] | Current Thread | [Next in Thread] |