geekinney/tp
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

test: add test for setq-local reactive updates

Browse Source 
Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
This commit is contained in:
copilot-swe-agent[bot] 2025-12-20 10:42:23 +00:00
parent 36c0a60f3f
commit c3ddeede64
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tp-tests.el
View File

@ -2609,5 +2609,25 @@ Returns list of (START END VALUE) intervals."
(makunbound 'tp-test-auto-var1) (makunbound 'tp-test-auto-var1)
(makunbound 'tp-test-auto-var2)))) (makunbound 'tp-test-auto-var2))))
(ert-deftest tp-test-setq-local-triggers-update ()
"Test that setq-local triggers reactive updates correctly."
(tp-test-with-temp-buffer
(unwind-protect
(progn
;; Define layer with auto-created variable (nil initial value)
(tp-define-layer test-local-layer
:props (face (:foreground $tp-test-local-color)))
;; Apply layer to text
(insert "Hello World")
(tp-set 1 6 'test-local-layer)
;; Initial value should be nil
(should (equal (plist-get (get-text-property 1 'face) :foreground) nil))
;; Use setq-local to set the value
(setq-local tp-test-local-color "red")
;; Text property should be updated
(should (equal (plist-get (get-text-property 1 'face) :foreground) "red")))
;; Cleanup
(makunbound 'tp-test-local-color))))
(provide 'tp-ert-tests) (provide 'tp-ert-tests)
;;; tp-ert-tests.el ends here ;;; tp-ert-tests.el ends here