bug#37202: shadowfile-tests: two failures on macOS

[Stefan Kangas <stefan@marxist.se>]

[-- Attachment #1: Type: text/plain, Size: 186 bytes --]

Michael Albinus <michael.albinus@gmx.de> writes:

> I still have no idea what's up. Added more traces, for test.

Thanks, please find attached the log file.

Best regards,
Stefan Kangas

[-- Attachment #2: shadowfile-tests.log --]
[-- Type: application/octet-stream, Size: 67558 bytes --]

  GEN      lisp/shadowfile-tests.log
Running 10 tests (2019-09-14 18:14:50+0200, selector `(not (tag :unstable))')
   passed   1/10  shadow-test00-clusters (4.057483 sec)
   passed   2/10  shadow-test01-sites (0.019834 sec)
   passed   3/10  shadow-test02-files (0.032502 sec)
   passed   4/10  shadow-test03-expand-cluster-in-file-name (0.031969 sec)
   passed   5/10  shadow-test04-contract-file-name (0.251036 sec)
   passed   6/10  shadow-test05-file-match (0.044491 sec)
   passed   7/10  shadow-test06-literal-groups (0.050405 sec)
   passed   8/10  shadow-test07-regexp-groups (0.018761 sec)
shadow-test08-shadow-todo: cluster1 /Stefans-MBP: \`/Stefans-MBP:\' ((shadow-cluster cluster1 /Stefans-MBP: \`/Stefans-MBP:\'))
shadow-test08-shadow-todo: cluster2 /mock:Stefans-MBP: \`/mock:Stefans-MBP:\' ((shadow-cluster cluster2 /mock:Stefans-MBP: \`/mock:Stefans-MBP:\') (shadow-cluster cluster1 /Stefans-MBP: \`/Stefans-MBP:\'))
shadow-test08-shadow-todo: /var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw ((/cluster1:/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw /cluster2:/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw))
shadow-add-to-todo: /var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw /private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw
shadow-shadows-of: /private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw /private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw /Users/skangas/wip/emacs/src/ /private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw /cluster1:/private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw
shadow-add-to-todo: nil nil
  backtrace()
  shadow-add-to-todo()
  run-hook-with-args-until-success(shadow-add-to-todo)
  basic-save-buffer(nil)
  save-buffer()
  (progn (set-visited-file-name file) (insert "foo") (save-buffer))
  (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s %s %s" cluster1 primary regexp shadow-clusters))) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s %s %s" cluster2 primary regexp shadow-clusters))) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file)))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" file shadow-literal-groups))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons file (shadow-contract-file-name (concat "/cluster2:" file))) shadow-files-to-copy))) (let* ((fn-547 #'member) (args-548 (condition-case err (let ((signal-hook-function ...)) (list (cons file ...) shadow-files-to-copy)) (error (progn (setq fn-547 ...) (list ... ...)))))) (let ((value-549 'ert-form-evaluation-aborted-550)) (let (form-description-551) (if (unwind-protect (setq value-549 (apply fn-547 args-548)) (setq form-description-551 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-551)) nil (ert-fail form-description-551))) value-549)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat (shadow-site-primary cluster2) file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons (concat (shadow-site-primary cluster2) file) (shadow-contract-file-name (concat "/cluster1:" file))) shadow-files-to-copy))) (let* ((fn-552 #'member) (args-553 (condition-case err (let ((signal-hook-function ...)) (list (cons ... ...) shadow-files-to-copy)) (error (progn (setq fn-552 ...) (list ... ...)))))) (let ((value-554 'ert-form-evaluation-aborted-555)) (let (form-description-556) (if (unwind-protect (setq value-554 (apply fn-552 args-553)) (setq form-description-556 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-556)) nil (ert-fail form-description-556))) value-554)) (setq shadow-files-to-copy nil shadow-regexp-groups (list (list (concat (shadow-site-primary cluster1) (shadow-regexp-superquote file)) (concat (shadow-site-primary cluster2) (shadow-regexp-superquote file))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" file shadow-regexp-groups))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons file (shadow-contract-file-name (concat "/cluster2:" file))) shadow-files-to-copy))) (let* ((fn-557 #'member) (args-558 (condition-case err (let ((signal-hook-function ...)) (list (cons file ...) shadow-files-to-copy)) (error (progn (setq fn-557 ...) (list ... ...)))))) (let ((value-559 'ert-form-evaluation-aborted-560)) (let (form-description-561) (if (unwind-protect (setq value-559 (apply fn-557 args-558)) (setq form-description-561 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-561)) nil (ert-fail form-description-561))) value-559)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat (shadow-site-primary cluster2) file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons (concat (shadow-site-primary cluster2) file) (shadow-contract-file-name (concat "/cluster1:" file))) shadow-files-to-copy))) (let* ((fn-562 #'member) (args-563 (condition-case err (let ((signal-hook-function ...)) (list (cons ... ...) shadow-files-to-copy)) (error (progn (setq fn-562 ...) (list ... ...)))))) (let ((value-564 'ert-form-evaluation-aborted-565)) (let (form-description-566) (if (unwind-protect (setq value-564 (apply fn-562 args-563)) (setq form-description-566 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-566)) nil (ert-fail form-description-566))) value-564)))
  (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s %s %s" cluster1 primary regexp shadow-clusters))) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s %s %s" cluster2 primary regexp shadow-clusters))) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file)))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" file shadow-literal-groups))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons file (shadow-contract-file-name (concat "/cluster2:" file))) shadow-files-to-copy))) (let* ((fn-547 #'member) (args-548 (condition-case err (let (...) (list ... shadow-files-to-copy)) (error (progn ... ...))))) (let ((value-549 'ert-form-evaluation-aborted-550)) (let (form-description-551) (if (unwind-protect (setq value-549 ...) (setq form-description-551 ...) (ert--signal-should-execution form-description-551)) nil (ert-fail form-description-551))) value-549)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat ... file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons (concat (shadow-site-primary cluster2) file) (shadow-contract-file-name (concat "/cluster1:" file))) shadow-files-to-copy))) (let* ((fn-552 #'member) (args-553 (condition-case err (let (...) (list ... shadow-files-to-copy)) (error (progn ... ...))))) (let ((value-554 'ert-form-evaluation-aborted-555)) (let (form-description-556) (if (unwind-protect (setq value-554 ...) (setq form-description-556 ...) (ert--signal-should-execution form-description-556)) nil (ert-fail form-description-556))) value-554)) (setq shadow-files-to-copy nil shadow-regexp-groups (list (list (concat (shadow-site-primary cluster1) (shadow-regexp-superquote file)) (concat (shadow-site-primary cluster2) (shadow-regexp-superquote file))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" file shadow-regexp-groups))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons file (shadow-contract-file-name (concat "/cluster2:" file))) shadow-files-to-copy))) (let* ((fn-557 #'member) (args-558 (condition-case err (let (...) (list ... shadow-files-to-copy)) (error (progn ... ...))))) (let ((value-559 'ert-form-evaluation-aborted-560)) (let (form-description-561) (if (unwind-protect (setq value-559 ...) (setq form-description-561 ...) (ert--signal-should-execution form-description-561)) nil (ert-fail form-description-561))) value-559)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat ... file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons (concat (shadow-site-primary cluster2) file) (shadow-contract-file-name (concat "/cluster1:" file))) shadow-files-to-copy))) (let* ((fn-562 #'member) (args-563 (condition-case err (let (...) (list ... shadow-files-to-copy)) (error (progn ... ...))))) (let ((value-564 'ert-form-evaluation-aborted-565)) (let (form-description-566) (if (unwind-protect (setq value-564 ...) (setq form-description-566 ...) (ert--signal-should-execution form-description-566)) nil (ert-fail form-description-566))) value-564))) (let ((--dolist-tail-- (list file (concat (shadow-site-primary cluster2) file))) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (condition-case nil (progn (save-current-buffer (set-buffer (get-file-buffer elt)) (set-buffer-modified-p nil) (kill-buffer))) (error nil)) (condition-case nil (progn (delete-file elt)) (error nil)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (shadow--tests-cleanup))
  (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) shadow-clusters shadow-literal-groups shadow-regexp-groups shadow-files-to-copy cluster1 cluster2 primary regexp file) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s %s %s" cluster1 primary regexp shadow-clusters))) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s %s %s" cluster2 primary regexp shadow-clusters))) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file)))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" file shadow-literal-groups))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons file (shadow-contract-file-name ...)) shadow-files-to-copy))) (let* ((fn-547 #'member) (args-548 (condition-case err (let ... ...) (error ...)))) (let ((value-549 'ert-form-evaluation-aborted-550)) (let (form-description-551) (if (unwind-protect ... ... ...) nil (ert-fail form-description-551))) value-549)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name ...) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons (concat ... file) (shadow-contract-file-name ...)) shadow-files-to-copy))) (let* ((fn-552 #'member) (args-553 (condition-case err (let ... ...) (error ...)))) (let ((value-554 'ert-form-evaluation-aborted-555)) (let (form-description-556) (if (unwind-protect ... ... ...) nil (ert-fail form-description-556))) value-554)) (setq shadow-files-to-copy nil shadow-regexp-groups (list (list (concat (shadow-site-primary cluster1) (shadow-regexp-superquote file)) (concat (shadow-site-primary cluster2) (shadow-regexp-superquote file))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" file shadow-regexp-groups))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons file (shadow-contract-file-name ...)) shadow-files-to-copy))) (let* ((fn-557 #'member) (args-558 (condition-case err (let ... ...) (error ...)))) (let ((value-559 'ert-form-evaluation-aborted-560)) (let (form-description-561) (if (unwind-protect ... ... ...) nil (ert-fail form-description-561))) value-559)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name ...) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons (concat ... file) (shadow-contract-file-name ...)) shadow-files-to-copy))) (let* ((fn-562 #'member) (args-563 (condition-case err (let ... ...) (error ...)))) (let ((value-564 'ert-form-evaluation-aborted-565)) (let (form-description-566) (if (unwind-protect ... ... ...) nil (ert-fail form-description-566))) value-564))) (let ((--dolist-tail-- (list file (concat (shadow-site-primary cluster2) file))) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (condition-case nil (progn (save-current-buffer (set-buffer ...) (set-buffer-modified-p nil) (kill-buffer))) (error nil)) (condition-case nil (progn (delete-file elt)) (error nil)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (shadow--tests-cleanup)))
  (lambda nil (let* ((fn-532 #'not) (args-533 (condition-case err (let ((signal-hook-function ...)) (list (memq system-type ...))) (error (progn (setq fn-532 ...) (list ... ...)))))) (let ((value-534 'ert-form-evaluation-aborted-535)) (let (form-description-536) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-536))) value-534)) (let* ((fn-537 #'file-remote-p) (args-538 (condition-case err (let ((signal-hook-function ...)) (list shadow-test-remote-temporary-file-directory)) (error (progn (setq fn-537 ...) (list ... ...)))))) (let ((value-539 'ert-form-evaluation-aborted-540)) (let (form-description-541) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-541))) value-539)) (let* ((fn-542 #'file-writable-p) (args-543 (condition-case err (let ((signal-hook-function ...)) (list shadow-test-remote-temporary-file-directory)) (error (progn (setq fn-542 ...) (list ... ...)))))) (let ((value-544 'ert-form-evaluation-aborted-545)) (let (form-description-546) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-546))) value-544)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) shadow-clusters shadow-literal-groups shadow-regexp-groups shadow-files-to-copy cluster1 cluster2 primary regexp file) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s %s %s" cluster1 primary regexp shadow-clusters))) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s %s %s" cluster2 primary regexp shadow-clusters))) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file)))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" file shadow-literal-groups))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons file ...) shadow-files-to-copy))) (let* ((fn-547 #'member) (args-548 (condition-case err ... ...))) (let ((value-549 ...)) (let (form-description-551) (if ... nil ...)) value-549)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons ... ...) shadow-files-to-copy))) (let* ((fn-552 #'member) (args-553 (condition-case err ... ...))) (let ((value-554 ...)) (let (form-description-556) (if ... nil ...)) value-554)) (setq shadow-files-to-copy nil shadow-regexp-groups (list (list (concat ... ...) (concat ... ...)))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" file shadow-regexp-groups))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons file ...) shadow-files-to-copy))) (let* ((fn-557 #'member) (args-558 (condition-case err ... ...))) (let ((value-559 ...)) (let (form-description-561) (if ... nil ...)) value-559)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (if shadow-debug (progn (message "shadow-test08-shadow-todo: %s %s" (cons ... ...) shadow-files-to-copy))) (let* ((fn-562 #'member) (args-563 (condition-case err ... ...))) (let ((value-564 ...)) (let (form-description-566) (if ... nil ...)) value-564))) (let ((--dolist-tail-- (list file (concat ... file))) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (condition-case nil (progn (save-current-buffer ... ... ...)) (error nil)) (condition-case nil (progn (delete-file elt)) (error nil)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (shadow--tests-cleanup))))()
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name shadow-test08-shadow-todo :documentation "Check that needed shadows are added to todo." :body (lambda nil (let* ((fn-532 #'not) (args-533 (condition-case err ... ...))) (let ((value-534 ...)) (let (form-description-536) (if ... nil ...)) value-534)) (let* ((fn-537 #'file-remote-p) (args-538 (condition-case err ... ...))) (let ((value-539 ...)) (let (form-description-541) (if ... nil ...)) value-539)) (let* ((fn-542 #'file-writable-p) (args-543 (condition-case err ... ...))) (let ((value-544 ...)) (let (form-description-546) (if ... nil ...)) value-544)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) shadow-clusters shadow-literal-groups shadow-regexp-groups shadow-files-to-copy cluster1 cluster2 primary regexp file) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp ...) (shadow-set-cluster cluster1 primary regexp) (if shadow-debug ...) (setq cluster2 "cluster2" primary ... regexp ...) (shadow-set-cluster cluster2 primary regexp) (if shadow-debug ...) (setq file ... shadow-literal-groups ...) (if shadow-debug ...) (let ... ...) (if shadow-debug ...) (let* ... ...) (let ... ...) (if shadow-debug ...) (let* ... ...) (setq shadow-files-to-copy nil shadow-regexp-groups ...) (if shadow-debug ...) (let ... ...) (if shadow-debug ...) (let* ... ...) (let ... ...) (if shadow-debug ...) (let* ... ...)) (let (... elt) (while --dolist-tail-- ... ... ... ...)) (shadow--tests-cleanup)))) :most-recent-result nil :expected-result-type :passed :tags nil) :result #s(ert-test-aborted-with-non-local-exit :messages nil :should-forms nil :duration 0) :exit-continuation #f(compiled-function () #<bytecode 0x1ff58f003e95>) :next-debugger debug :ert-debug-on-error nil))
  ert-run-test(#s(ert-test :name shadow-test08-shadow-todo :documentation "Check that needed shadows are added to todo." :body (lambda nil (let* ((fn-532 #'not) (args-533 (condition-case err (let ... ...) (error ...)))) (let ((value-534 'ert-form-evaluation-aborted-535)) (let (form-description-536) (if (condition-case nil ... ...) nil (ert-skip form-description-536))) value-534)) (let* ((fn-537 #'file-remote-p) (args-538 (condition-case err (let ... ...) (error ...)))) (let ((value-539 'ert-form-evaluation-aborted-540)) (let (form-description-541) (if (condition-case nil ... ...) nil (ert-skip form-description-541))) value-539)) (let* ((fn-542 #'file-writable-p) (args-543 (condition-case err (let ... ...) (error ...)))) (let ((value-544 'ert-form-evaluation-aborted-545)) (let (form-description-546) (if (condition-case nil ... ...) nil (ert-skip form-description-546))) value-544)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) shadow-clusters shadow-literal-groups shadow-regexp-groups shadow-files-to-copy cluster1 cluster2 primary regexp file) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (if shadow-debug (progn ...)) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (if shadow-debug (progn ...)) (setq file (make-temp-name ...) shadow-literal-groups (list ...)) (if shadow-debug (progn ...)) (let (...) (save-current-buffer ... ...)) (if shadow-debug (progn ...)) (let* (... ...) (let ... ... value-549)) (let (...) (save-current-buffer ... ...)) (if shadow-debug (progn ...)) (let* (... ...) (let ... ... value-554)) (setq shadow-files-to-copy nil shadow-regexp-groups (list ...)) (if shadow-debug (progn ...)) (let (...) (save-current-buffer ... ...)) (if shadow-debug (progn ...)) (let* (... ...) (let ... ... value-559)) (let (...) (save-current-buffer ... ...)) (if shadow-debug (progn ...)) (let* (... ...) (let ... ... value-564))) (let ((--dolist-tail-- ...) elt) (while --dolist-tail-- (setq elt ...) (condition-case nil ... ...) (condition-case nil ... ...) (setq --dolist-tail-- ...))) (shadow--tests-cleanup)))) :most-recent-result nil :expected-result-type :passed :tags nil))
  ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-map #<hash-table eql 10/10 0x1ff58ea0f81d> :test-results ... :test-start-times ... :test-end-times ... :passed-expected 8 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 0 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name shadow-test08-shadow-todo :documentation "Check that nee..." :body ... :most-recent-result nil :expected-result-type :passed :tags nil) #f(compiled-function (event-type &rest event-args) #<bytecode 0x1ff58ea0e2d9>))
  ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type &rest event-args) #<bytecode 0x1ff58ea0e2d9>) nil)
  ert-run-tests-batch((not (tag :unstable)))
  ert-run-tests-batch-and-exit((not (tag :unstable)))
  eval((ert-run-tests-batch-and-exit '(not (tag :unstable))) t)
  command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/shadowfile-tests.el" "--eval" "(ert-run-tests-batch-and-exit (quote (not (tag :un..."))
  command-line()
  normal-top-level()

shadow-test08-shadow-todo: (/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw . /cluster2:/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw) nil
Test shadow-test08-shadow-todo backtrace:
  signal(ert-test-failed (((should (member (cons file (shadow-contract
  ert-fail(((should (member (cons file (shadow-contract-file-name (con
  (if (unwind-protect (setq value-549 (apply fn-547 args-548)) (setq f
  (let (form-description-551) (if (unwind-protect (setq value-549 (app
  (let ((value-549 'ert-form-evaluation-aborted-550)) (let (form-descr
  (let* ((fn-547 #'member) (args-548 (condition-case err (let ((signal
  (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "c
  (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (
  (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) 
  (lambda nil (let* ((fn-532 #'not) (args-533 (condition-case err (let
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name shadow-test08-shadow-todo :documentat
  ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-m
  ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type
  ert-run-tests-batch((not (tag :unstable)))
  ert-run-tests-batch-and-exit((not (tag :unstable)))
  eval((ert-run-tests-batch-and-exit '(not (tag :unstable))) t)
  command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/shadowfile-tests.el"
  command-line()
  normal-top-level()
Test shadow-test08-shadow-todo condition:
    (ert-test-failed
     ((should
       (member
	(cons file ...)
	shadow-files-to-copy))
      :form
      (member
       ("/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw" . "/cluster2:/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsUMHFDw")
       nil)
      :value nil))
   FAILED   9/10  shadow-test08-shadow-todo (0.444239 sec)
shadow-add-to-todo: /var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7 /private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7
shadow-shadows-of: /private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7 /private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7 /Users/skangas/wip/emacs/src/ /private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7 /cluster1:/private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7
shadow-add-to-todo: nil nil
  backtrace()
  shadow-add-to-todo()
  run-hook-with-args-until-success(shadow-add-to-todo)
  basic-save-buffer(nil)
  save-buffer()
  (progn (set-visited-file-name file) (insert "foo") (save-buffer))
  (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file))) shadow-regexp-groups (list (list (concat (shadow-site-primary cluster1) (shadow-regexp-superquote file)) (concat (shadow-site-primary cluster2) (shadow-regexp-superquote file)))) mocked-input (list (concat (shadow-site-primary cluster2) file) file)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat (shadow-site-primary cluster2) file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (advice--add-function :before (cons #'(lambda nil (symbol-function #'write-region)) #'(lambda (gv--val) (fset #'write-region gv--val))) #'(lambda (&rest args) (if (and (buffer-file-name) mocked-input) (progn (let* (... ...) (let ... ... value-584))))) '((name . "write-region-mock"))) (shadow-copy-files 'noquery) (let ((value-587 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-588) (if (not (unwind-protect (setq value-587 shadow-files-to-copy) (setq form-description-588 (list ... :form ... :value value-587)) (ert--signal-should-execution form-description-588))) nil (ert-fail form-description-588))) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char (point-min)) (let* ((fn-589 #'looking-at) (args-590 (condition-case err (let (...) (list ...)) (error (progn ... ...))))) (let ((value-591 'ert-form-evaluation-aborted-592)) (let (form-description-593) (if (unwind-protect (setq value-591 ...) (setq form-description-593 ...) (ert--signal-should-execution form-description-593)) nil (ert-fail form-description-593))) value-591))))
  (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file))) shadow-regexp-groups (list (list (concat (shadow-site-primary cluster1) (shadow-regexp-superquote file)) (concat (shadow-site-primary cluster2) (shadow-regexp-superquote file)))) mocked-input (list (concat (shadow-site-primary cluster2) file) file)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat ... file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (advice--add-function :before (cons #'(lambda nil (symbol-function #'write-region)) #'(lambda (gv--val) (fset #'write-region gv--val))) #'(lambda (&rest args) (if (and (buffer-file-name) mocked-input) (progn (let* ... ...)))) '((name . "write-region-mock"))) (shadow-copy-files 'noquery) (let ((value-587 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-588) (if (not (unwind-protect (setq value-587 shadow-files-to-copy) (setq form-description-588 ...) (ert--signal-should-execution form-description-588))) nil (ert-fail form-description-588))) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char (point-min)) (let* ((fn-589 #'looking-at) (args-590 (condition-case err (let ... ...) (error ...)))) (let ((value-591 'ert-form-evaluation-aborted-592)) (let (form-description-593) (if (unwind-protect ... ... ...) nil (ert-fail form-description-593))) value-591)))) (let* ((new (advice--remove-function (symbol-function #'write-region) "write-region-mock"))) (if (eq new (symbol-function #'write-region)) nil (fset #'write-region new))) (let ((--dolist-tail-- (list file (concat (shadow-site-primary cluster2) file))) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (condition-case nil (progn (save-current-buffer (set-buffer (get-file-buffer elt)) (set-buffer-modified-p nil) (kill-buffer))) (error nil)) (condition-case nil (progn (delete-file elt)) (error nil)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (shadow--tests-cleanup))
  (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) (shadow-noquery t) shadow-clusters shadow-files-to-copy cluster1 cluster2 primary regexp file mocked-input) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file))) shadow-regexp-groups (list (list (concat (shadow-site-primary cluster1) (shadow-regexp-superquote file)) (concat (shadow-site-primary cluster2) (shadow-regexp-superquote file)))) mocked-input (list (concat (shadow-site-primary cluster2) file) file)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name ...) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (advice--add-function :before (cons #'(lambda nil (symbol-function ...)) #'(lambda (gv--val) (fset ... gv--val))) #'(lambda (&rest args) (if (and ... mocked-input) (progn ...))) '((name . "write-region-mock"))) (shadow-copy-files 'noquery) (let ((value-587 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-588) (if (not (unwind-protect ... ... ...)) nil (ert-fail form-description-588))) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char (point-min)) (let* ((fn-589 #'looking-at) (args-590 (condition-case err ... ...))) (let ((value-591 ...)) (let (form-description-593) (if ... nil ...)) value-591)))) (let* ((new (advice--remove-function (symbol-function #'write-region) "write-region-mock"))) (if (eq new (symbol-function #'write-region)) nil (fset #'write-region new))) (let ((--dolist-tail-- (list file (concat (shadow-site-primary cluster2) file))) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (condition-case nil (progn (save-current-buffer (set-buffer ...) (set-buffer-modified-p nil) (kill-buffer))) (error nil)) (condition-case nil (progn (delete-file elt)) (error nil)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (shadow--tests-cleanup)))
  (lambda nil (let* ((fn-567 #'not) (args-568 (condition-case err (let ((signal-hook-function ...)) (list (memq system-type ...))) (error (progn (setq fn-567 ...) (list ... ...)))))) (let ((value-569 'ert-form-evaluation-aborted-570)) (let (form-description-571) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-571))) value-569)) (let* ((fn-572 #'file-remote-p) (args-573 (condition-case err (let ((signal-hook-function ...)) (list shadow-test-remote-temporary-file-directory)) (error (progn (setq fn-572 ...) (list ... ...)))))) (let ((value-574 'ert-form-evaluation-aborted-575)) (let (form-description-576) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-576))) value-574)) (let* ((fn-577 #'file-writable-p) (args-578 (condition-case err (let ((signal-hook-function ...)) (list shadow-test-remote-temporary-file-directory)) (error (progn (setq fn-577 ...) (list ... ...)))))) (let ((value-579 'ert-form-evaluation-aborted-580)) (let (form-description-581) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-581))) value-579)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) (shadow-noquery t) shadow-clusters shadow-files-to-copy cluster1 cluster2 primary regexp file mocked-input) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file))) shadow-regexp-groups (list (list (concat ... ...) (concat ... ...))) mocked-input (list (concat (shadow-site-primary cluster2) file) file)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (advice--add-function :before (cons #'(lambda nil ...) #'(lambda ... ...)) #'(lambda (&rest args) (if ... ...)) '((name . "write-region-mock"))) (shadow-copy-files 'noquery) (let ((value-587 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-588) (if (not ...) nil (ert-fail form-description-588))) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char (point-min)) (let* ((fn-589 ...) (args-590 ...)) (let (...) (let ... ...) value-591)))) (let* ((new (advice--remove-function (symbol-function ...) "write-region-mock"))) (if (eq new (symbol-function #'write-region)) nil (fset #'write-region new))) (let ((--dolist-tail-- (list file (concat ... file))) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (condition-case nil (progn (save-current-buffer ... ... ...)) (error nil)) (condition-case nil (progn (delete-file elt)) (error nil)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (shadow--tests-cleanup))))()
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name shadow-test09-shadow-copy-files :documentation "Check that needed shadow files are copied." :body (lambda nil (let* ((fn-567 #'not) (args-568 (condition-case err ... ...))) (let ((value-569 ...)) (let (form-description-571) (if ... nil ...)) value-569)) (let* ((fn-572 #'file-remote-p) (args-573 (condition-case err ... ...))) (let ((value-574 ...)) (let (form-description-576) (if ... nil ...)) value-574)) (let* ((fn-577 #'file-writable-p) (args-578 (condition-case err ... ...))) (let ((value-579 ...)) (let (form-description-581) (if ... nil ...)) value-579)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) (shadow-noquery t) shadow-clusters shadow-files-to-copy cluster1 cluster2 primary regexp file mocked-input) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp ...) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary ... regexp ...) (shadow-set-cluster cluster2 primary regexp) (setq file ... shadow-literal-groups ... shadow-regexp-groups ... mocked-input ...) (let ... ...) (let ... ...) (advice--add-function :before ... ... ...) (shadow-copy-files ...) (let ... ... value-587) (save-current-buffer ... ... ...)) (let* (...) (if ... nil ...)) (let (... elt) (while --dolist-tail-- ... ... ... ...)) (shadow--tests-cleanup)))) :most-recent-result nil :expected-result-type :passed :tags nil) :result #s(ert-test-aborted-with-non-local-exit :messages nil :should-forms nil :duration 0) :exit-continuation #f(compiled-function () #<bytecode 0x1ff58f003e95>) :next-debugger debug :ert-debug-on-error nil))
  ert-run-test(#s(ert-test :name shadow-test09-shadow-copy-files :documentation "Check that needed shadow files are copied." :body (lambda nil (let* ((fn-567 #'not) (args-568 (condition-case err (let ... ...) (error ...)))) (let ((value-569 'ert-form-evaluation-aborted-570)) (let (form-description-571) (if (condition-case nil ... ...) nil (ert-skip form-description-571))) value-569)) (let* ((fn-572 #'file-remote-p) (args-573 (condition-case err (let ... ...) (error ...)))) (let ((value-574 'ert-form-evaluation-aborted-575)) (let (form-description-576) (if (condition-case nil ... ...) nil (ert-skip form-description-576))) value-574)) (let* ((fn-577 #'file-writable-p) (args-578 (condition-case err (let ... ...) (error ...)))) (let ((value-579 'ert-form-evaluation-aborted-580)) (let (form-description-581) (if (condition-case nil ... ...) nil (ert-skip form-description-581))) value-579)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) (shadow-noquery t) shadow-clusters shadow-files-to-copy cluster1 cluster2 primary regexp file mocked-input) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name ...) shadow-literal-groups (list ...) shadow-regexp-groups (list ...) mocked-input (list ... file)) (let (...) (save-current-buffer ... ...)) (let (...) (save-current-buffer ... ...)) (advice--add-function :before (cons ... ...) #'... '...) (shadow-copy-files 'noquery) (let (...) (let ... ...) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char ...) (let* ... ...))) (let* ((new ...)) (if (eq new ...) nil (fset ... new))) (let ((--dolist-tail-- ...) elt) (while --dolist-tail-- (setq elt ...) (condition-case nil ... ...) (condition-case nil ... ...) (setq --dolist-tail-- ...))) (shadow--tests-cleanup)))) :most-recent-result nil :expected-result-type :passed :tags nil))
  ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-map #<hash-table eql 10/10 0x1ff58ea0f81d> :test-results ... :test-start-times ... :test-end-times ... :passed-expected 8 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name shadow-test09-shadow-copy-files :documentation "Check that nee..." :body ... :most-recent-result nil :expected-result-type :passed :tags nil) #f(compiled-function (event-type &rest event-args) #<bytecode 0x1ff58ea0e2d9>))
  ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type &rest event-args) #<bytecode 0x1ff58ea0e2d9>) nil)
  ert-run-tests-batch((not (tag :unstable)))
  ert-run-tests-batch-and-exit((not (tag :unstable)))
  eval((ert-run-tests-batch-and-exit '(not (tag :unstable))) t)
  command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/shadowfile-tests.el" "--eval" "(ert-run-tests-batch-and-exit (quote (not (tag :un..."))
  command-line()
  normal-top-level()



shadow-add-to-todo: /mock:Stefans-MBP:/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7 /mock:Stefans-MBP:/private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7
shadow-shadows-of: /mock:Stefans-MBP:/private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7 nil /Users/skangas/wip/emacs/src/ /mock:Stefans-MBP:/private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7 /cluster2:/private/var/folders/pj/rhx0gxy15tv3vx6l3mdy0qvm0000gn/T/shadowfile-testsCkytW7
shadow-add-to-todo: nil nil
  backtrace()
  shadow-add-to-todo()
  run-hook-with-args-until-success(shadow-add-to-todo)
  basic-save-buffer(nil)
  save-buffer()
  (progn (set-visited-file-name (concat (shadow-site-primary cluster2) file)) (insert "foo") (save-buffer))
  (unwind-protect (progn (set-visited-file-name (concat (shadow-site-primary cluster2) file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat (shadow-site-primary cluster2) file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat (shadow-site-primary cluster2) file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file))) shadow-regexp-groups (list (list (concat (shadow-site-primary cluster1) (shadow-regexp-superquote file)) (concat (shadow-site-primary cluster2) (shadow-regexp-superquote file)))) mocked-input (list (concat (shadow-site-primary cluster2) file) file)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat (shadow-site-primary cluster2) file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (advice--add-function :before (cons #'(lambda nil (symbol-function #'write-region)) #'(lambda (gv--val) (fset #'write-region gv--val))) #'(lambda (&rest args) (if (and (buffer-file-name) mocked-input) (progn (let* (... ...) (let ... ... value-584))))) '((name . "write-region-mock"))) (shadow-copy-files 'noquery) (let ((value-587 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-588) (if (not (unwind-protect (setq value-587 shadow-files-to-copy) (setq form-description-588 (list ... :form ... :value value-587)) (ert--signal-should-execution form-description-588))) nil (ert-fail form-description-588))) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char (point-min)) (let* ((fn-589 #'looking-at) (args-590 (condition-case err (let (...) (list ...)) (error (progn ... ...))))) (let ((value-591 'ert-form-evaluation-aborted-592)) (let (form-description-593) (if (unwind-protect (setq value-591 ...) (setq form-description-593 ...) (ert--signal-should-execution form-description-593)) nil (ert-fail form-description-593))) value-591))))
  (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file))) shadow-regexp-groups (list (list (concat (shadow-site-primary cluster1) (shadow-regexp-superquote file)) (concat (shadow-site-primary cluster2) (shadow-regexp-superquote file)))) mocked-input (list (concat (shadow-site-primary cluster2) file) file)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name (concat ... file)) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (advice--add-function :before (cons #'(lambda nil (symbol-function #'write-region)) #'(lambda (gv--val) (fset #'write-region gv--val))) #'(lambda (&rest args) (if (and (buffer-file-name) mocked-input) (progn (let* ... ...)))) '((name . "write-region-mock"))) (shadow-copy-files 'noquery) (let ((value-587 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-588) (if (not (unwind-protect (setq value-587 shadow-files-to-copy) (setq form-description-588 ...) (ert--signal-should-execution form-description-588))) nil (ert-fail form-description-588))) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char (point-min)) (let* ((fn-589 #'looking-at) (args-590 (condition-case err (let ... ...) (error ...)))) (let ((value-591 'ert-form-evaluation-aborted-592)) (let (form-description-593) (if (unwind-protect ... ... ...) nil (ert-fail form-description-593))) value-591)))) (let* ((new (advice--remove-function (symbol-function #'write-region) "write-region-mock"))) (if (eq new (symbol-function #'write-region)) nil (fset #'write-region new))) (let ((--dolist-tail-- (list file (concat (shadow-site-primary cluster2) file))) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (condition-case nil (progn (save-current-buffer (set-buffer (get-file-buffer elt)) (set-buffer-modified-p nil) (kill-buffer))) (error nil)) (condition-case nil (progn (delete-file elt)) (error nil)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (shadow--tests-cleanup))
  (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) (shadow-noquery t) shadow-clusters shadow-files-to-copy cluster1 cluster2 primary regexp file mocked-input) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file))) shadow-regexp-groups (list (list (concat (shadow-site-primary cluster1) (shadow-regexp-superquote file)) (concat (shadow-site-primary cluster2) (shadow-regexp-superquote file)))) mocked-input (list (concat (shadow-site-primary cluster2) file) file)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name file) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (set-visited-file-name ...) (insert "foo") (save-buffer)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (advice--add-function :before (cons #'(lambda nil (symbol-function ...)) #'(lambda (gv--val) (fset ... gv--val))) #'(lambda (&rest args) (if (and ... mocked-input) (progn ...))) '((name . "write-region-mock"))) (shadow-copy-files 'noquery) (let ((value-587 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-588) (if (not (unwind-protect ... ... ...)) nil (ert-fail form-description-588))) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char (point-min)) (let* ((fn-589 #'looking-at) (args-590 (condition-case err ... ...))) (let ((value-591 ...)) (let (form-description-593) (if ... nil ...)) value-591)))) (let* ((new (advice--remove-function (symbol-function #'write-region) "write-region-mock"))) (if (eq new (symbol-function #'write-region)) nil (fset #'write-region new))) (let ((--dolist-tail-- (list file (concat (shadow-site-primary cluster2) file))) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (condition-case nil (progn (save-current-buffer (set-buffer ...) (set-buffer-modified-p nil) (kill-buffer))) (error nil)) (condition-case nil (progn (delete-file elt)) (error nil)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (shadow--tests-cleanup)))
  (lambda nil (let* ((fn-567 #'not) (args-568 (condition-case err (let ((signal-hook-function ...)) (list (memq system-type ...))) (error (progn (setq fn-567 ...) (list ... ...)))))) (let ((value-569 'ert-form-evaluation-aborted-570)) (let (form-description-571) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-571))) value-569)) (let* ((fn-572 #'file-remote-p) (args-573 (condition-case err (let ((signal-hook-function ...)) (list shadow-test-remote-temporary-file-directory)) (error (progn (setq fn-572 ...) (list ... ...)))))) (let ((value-574 'ert-form-evaluation-aborted-575)) (let (form-description-576) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-576))) value-574)) (let* ((fn-577 #'file-writable-p) (args-578 (condition-case err (let ((signal-hook-function ...)) (list shadow-test-remote-temporary-file-directory)) (error (progn (setq fn-577 ...) (list ... ...)))))) (let ((value-579 'ert-form-evaluation-aborted-580)) (let (form-description-581) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-581))) value-579)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) (shadow-noquery t) shadow-clusters shadow-files-to-copy cluster1 cluster2 primary regexp file mocked-input) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name (expand-file-name "shadowfile-tests" temporary-file-directory)) shadow-literal-groups (list (list (concat "/cluster1:" file) (concat "/cluster2:" file))) shadow-regexp-groups (list (list (concat ... ...) (concat ... ...))) mocked-input (list (concat (shadow-site-primary cluster2) file) file)) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (advice--add-function :before (cons #'(lambda nil ...) #'(lambda ... ...)) #'(lambda (&rest args) (if ... ...)) '((name . "write-region-mock"))) (shadow-copy-files 'noquery) (let ((value-587 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-588) (if (not ...) nil (ert-fail form-description-588))) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char (point-min)) (let* ((fn-589 ...) (args-590 ...)) (let (...) (let ... ...) value-591)))) (let* ((new (advice--remove-function (symbol-function ...) "write-region-mock"))) (if (eq new (symbol-function #'write-region)) nil (fset #'write-region new))) (let ((--dolist-tail-- (list file (concat ... file))) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (condition-case nil (progn (save-current-buffer ... ... ...)) (error nil)) (condition-case nil (progn (delete-file elt)) (error nil)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (shadow--tests-cleanup))))()
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name shadow-test09-shadow-copy-files :documentation "Check that needed shadow files are copied." :body (lambda nil (let* ((fn-567 #'not) (args-568 (condition-case err ... ...))) (let ((value-569 ...)) (let (form-description-571) (if ... nil ...)) value-569)) (let* ((fn-572 #'file-remote-p) (args-573 (condition-case err ... ...))) (let ((value-574 ...)) (let (form-description-576) (if ... nil ...)) value-574)) (let* ((fn-577 #'file-writable-p) (args-578 (condition-case err ... ...))) (let ((value-579 ...)) (let (form-description-581) (if ... nil ...)) value-579)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) (shadow-noquery t) shadow-clusters shadow-files-to-copy cluster1 cluster2 primary regexp file mocked-input) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp ...) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary ... regexp ...) (shadow-set-cluster cluster2 primary regexp) (setq file ... shadow-literal-groups ... shadow-regexp-groups ... mocked-input ...) (let ... ...) (let ... ...) (advice--add-function :before ... ... ...) (shadow-copy-files ...) (let ... ... value-587) (save-current-buffer ... ... ...)) (let* (...) (if ... nil ...)) (let (... elt) (while --dolist-tail-- ... ... ... ...)) (shadow--tests-cleanup)))) :most-recent-result nil :expected-result-type :passed :tags nil) :result #s(ert-test-aborted-with-non-local-exit :messages nil :should-forms nil :duration 0) :exit-continuation #f(compiled-function () #<bytecode 0x1ff58f003e95>) :next-debugger debug :ert-debug-on-error nil))
  ert-run-test(#s(ert-test :name shadow-test09-shadow-copy-files :documentation "Check that needed shadow files are copied." :body (lambda nil (let* ((fn-567 #'not) (args-568 (condition-case err (let ... ...) (error ...)))) (let ((value-569 'ert-form-evaluation-aborted-570)) (let (form-description-571) (if (condition-case nil ... ...) nil (ert-skip form-description-571))) value-569)) (let* ((fn-572 #'file-remote-p) (args-573 (condition-case err (let ... ...) (error ...)))) (let ((value-574 'ert-form-evaluation-aborted-575)) (let (form-description-576) (if (condition-case nil ... ...) nil (ert-skip form-description-576))) value-574)) (let* ((fn-577 #'file-writable-p) (args-578 (condition-case err (let ... ...) (error ...)))) (let ((value-579 'ert-form-evaluation-aborted-580)) (let (form-description-581) (if (condition-case nil ... ...) nil (ert-skip form-description-581))) value-579)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) (shadow-inhibit-message t) (shadow-test-remote-temporary-file-directory (file-truename shadow-test-remote-temporary-file-directory)) (shadow-noquery t) shadow-clusters shadow-files-to-copy cluster1 cluster2 primary regexp file mocked-input) (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "cluster1" primary shadow-system-name regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster1 primary regexp) (setq cluster2 "cluster2" primary (file-remote-p shadow-test-remote-temporary-file-directory) regexp (shadow-regexp-superquote primary)) (shadow-set-cluster cluster2 primary regexp) (setq file (make-temp-name ...) shadow-literal-groups (list ...) shadow-regexp-groups (list ...) mocked-input (list ... file)) (let (...) (save-current-buffer ... ...)) (let (...) (save-current-buffer ... ...)) (advice--add-function :before (cons ... ...) #'... '...) (shadow-copy-files 'noquery) (let (...) (let ... ...) value-587) (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char ...) (let* ... ...))) (let* ((new ...)) (if (eq new ...) nil (fset ... new))) (let ((--dolist-tail-- ...) elt) (while --dolist-tail-- (setq elt ...) (condition-case nil ... ...) (condition-case nil ... ...) (setq --dolist-tail-- ...))) (shadow--tests-cleanup)))) :most-recent-result nil :expected-result-type :passed :tags nil))
  ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-map #<hash-table eql 10/10 0x1ff58ea0f81d> :test-results ... :test-start-times ... :test-end-times ... :passed-expected 8 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name shadow-test09-shadow-copy-files :documentation "Check that nee..." :body ... :most-recent-result nil :expected-result-type :passed :tags nil) #f(compiled-function (event-type &rest event-args) #<bytecode 0x1ff58ea0e2d9>))
  ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type &rest event-args) #<bytecode 0x1ff58ea0e2d9>) nil)
  ert-run-tests-batch((not (tag :unstable)))
  ert-run-tests-batch-and-exit((not (tag :unstable)))
  eval((ert-run-tests-batch-and-exit '(not (tag :unstable))) t)
  command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/shadowfile-tests.el" "--eval" "(ert-run-tests-batch-and-exit (quote (not (tag :un..."))
  command-line()
  normal-top-level()

Test shadow-test09-shadow-copy-files backtrace:
  signal(ert-test-failed (((should (looking-at (regexp-quote "(setq sh
  ert-fail(((should (looking-at (regexp-quote "(setq shadow-files-to-c
  (if (unwind-protect (setq value-591 (apply fn-589 args-590)) (setq f
  (let (form-description-593) (if (unwind-protect (setq value-591 (app
  (let ((value-591 'ert-form-evaluation-aborted-592)) (let (form-descr
  (let* ((fn-589 #'looking-at) (args-590 (condition-case err (let ((si
  (save-current-buffer (set-buffer shadow-todo-buffer) (goto-char (poi
  (progn (shadow--tests-cleanup) (shadow-initialize) (setq cluster1 "c
  (unwind-protect (progn (shadow--tests-cleanup) (shadow-initialize) (
  (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) 
  (lambda nil (let* ((fn-567 #'not) (args-568 (condition-case err (let
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name shadow-test09-shadow-copy-files :docu
  ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-m
  ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type
  ert-run-tests-batch((not (tag :unstable)))
  ert-run-tests-batch-and-exit((not (tag :unstable)))
  eval((ert-run-tests-batch-and-exit '(not (tag :unstable))) t)
  command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/shadowfile-tests.el"
  command-line()
  normal-top-level()
Test shadow-test09-shadow-copy-files condition:
    (ert-test-failed
     ((should
       (looking-at
	(regexp-quote "(setq shadow-files-to-copy nil)")))
      :form
      (looking-at "(setq shadow-files-to-copy nil)")
      :value nil))
   FAILED  10/10  shadow-test09-shadow-copy-files (1.148033 sec)

Ran 10 tests, 8 results as expected, 2 unexpected (2019-09-14 18:14:56+0200, 6.659549 sec)

2 unexpected results:
   FAILED  shadow-test08-shadow-todo
   FAILED  shadow-test09-shadow-copy-files

make[1]: *** [lisp/shadowfile-tests.log] Error 1
make: *** [lisp/shadowfile-tests] Error 2