diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-08-09 15:40:37 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-08-09 15:40:37 +0200 |
| commit | 53483df0de0085dbc9ef0b15a0f629ab808b0147 (patch) | |
| tree | c838b13d232aa5157c60bb267fe38d8601590064 /test/lisp | |
| parent | f1a385ded23c22edc3f5005bcaa2129eb1d87448 (diff) | |
| download | emacs-53483df0de0085dbc9ef0b15a0f629ab808b0147.tar.gz | |
; More instrumentation for shadowfile-tests.el and files.el
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/shadowfile-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el index 0335caa5168..22f7b2de6ed 100644 --- a/test/lisp/shadowfile-tests.el +++ b/test/lisp/shadowfile-tests.el @@ -724,6 +724,8 @@ 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) + (dolist (elt write-file-functions) + (trace-function-background elt)) ;; Cleanup. (when (file-exists-p shadow-info-file) (delete-file shadow-info-file)) @@ -775,7 +777,10 @@ guaranteed by the originator of a cluster definition." (message "Point 4.2") (insert "foo") (message "%s" buffer-file-name) + (message "%s" write-file-functions) + (setenv "BUG_32226" "1") (save-buffer)) + (setenv "BUG_32226") (message "Point 4.3") (message "%s" (shadow-site-primary cluster2)) (message "%s" (shadow-contract-file-name (concat "/cluster1:" file))) @@ -821,6 +826,7 @@ guaranteed by the originator of a cluster definition." shadow-files-to-copy))) (error (message "Error: %s" err) (signal (car err) (cdr err)))) + (setenv "BUG_32226") (untrace-all) (message "%s" (with-current-buffer trace-buffer (buffer-string))) |