You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
;;; dired-rsync-ert --- tests for dired-rsync;;;;; Commentary:;;;; Mostly this is for the internal functions as it is hard to test;; remote SSH accessible resources in a test case.;;;;; Code:
(require 'ert)
(when (require 'undercover nil t) (undercover "dired-rsync.el"))
(require 'dired-rsync)
(ert-deftest dired-rsync-test-extract-host () "Test the various extractions of host from sources." (should (string-equal "host" (dired-rsync--extract-host-from-tramp "/ssh:host:/path/to/file.txt"))) (should (string-equal "user@host" (dired-rsync--extract-host-from-tramp "/ssh:user@host:/path/to/file.txt"))) (should (string-equal "host" (dired-rsync--extract-host-from-tramp "/ssh:user@host:/path/to/file.txt" t))))
(ert-deftest dired-rsync-test-extract-user () "Test the various extractions of user from paths." (should (string-equal "user" (dired-rsync--extract-user-from-tramp "/ssh:user@host:/path/to/file.txt"))))
(ert-deftest dired-rsync-test-extract-path() "Test the various extractions of the path." (should (string-equal "/path/to/file.txt" (car (dired-rsync--extract-paths-from-tramp '("/ssh:host:/path/to/file.txt" "/ssh:host:/path/to/file2.txt"))))) (should (string-equal "/path/to/file2.txt" (nth 1 (dired-rsync--extract-paths-from-tramp '("/ssh:host:/path/to/file.txt" "/ssh:host:/path/to/file2.txt"))))) (should (string-equal "/path/to/file.txt" (car (dired-rsync--extract-paths-from-tramp '("/ssh:host:/path/to/file.txt"))))) (should (string-equal "/path/to/pluralised\\'s.txt" (car (dired-rsync--extract-paths-from-tramp '("/ssh:host:/path/to/pluralised's.txt"))))))
(ert-deftest dired-rsync-test-remote-remote-cmd () "Test we generate a good remote to remote command." (should (string-equal "ssh -A -R localhost:50000:host:22 seed 'rsync -az --info=progress2 -e \"ssh -p 50000 -o StrictHostKeyChecking=no -o UserKnownHostsFile=/dev/null\" a b c's user@localhost:/video'" (dired-rsync--remote-to-remote-cmd "seed" '("a" "b" "c's") "user" "host" "/video"))))
;;; dired-rsync-ert.el ends here
|
