diff options
Diffstat (limited to 'tests/test-duet-transfer.el')
| -rw-r--r-- | tests/test-duet-transfer.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/test-duet-transfer.el b/tests/test-duet-transfer.el index a5d0429..ebe5a2c 100644 --- a/tests/test-duet-transfer.el +++ b/tests/test-duet-transfer.el @@ -120,6 +120,14 @@ (should (eq 'rsync (plist-get spec :backend))) (should (eq :local-remote (plist-get spec :route)))))) +(ert-deftest test-duet-transfer-spec-preserves-tramp-marker () + "A spec routed through TRAMP carries the in-process marker, not just nil argv." + (test-duet-transfer--with-builtins + (let ((spec (duet--transfer-spec '("/tmp/a/file.txt") "/ftp:host:/b" nil))) + (should (eq 'tramp (plist-get spec :backend))) + (should (eq t (plist-get spec :tramp))) + (should (null (plist-get spec :argv)))))) + ;;; Conflict planning — pure, prompt-free (ert-deftest test-duet-plan-conflicts-no-collisions-all-copy () |