; More instrumentation for shadowfile-tests.el and files.el

* test/lisp/shadowfile-tests.el (shadow-test06-literal-groups)
(shadow-test07-regexp-groups, shadow-test08-shadow-todo)
(shadow-test09-shadow-copy-files): Use `set-visited-file-name'
instead of setting the value in `buffer-file-name' directly.
(Bug#32226)

1 files changed, 3 insertions, 0 deletions

diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el
index c549ad79a4c..f93845da61e 100644
--- a/test/lisp/shadowfile-tests.el
+++ b/test/lisp/shadowfile-tests.el
@@ -724,6 +724,9 @@ guaranteed by the originator of a cluster definition."
           (dolist (elt (all-completions "shadow-" obarray 'functionp))
             (trace-function-background (intern elt)))
           (trace-function-background 'save-buffer)
+          (trace-function-background 'basic-save-buffer)
+          (trace-function-background 'basic-save-buffer-1)
+          (trace-function-background 'basic-save-buffer-2)
           (dolist (elt write-file-functions)
             (trace-function-background elt))
           ;; Cleanup.