18 lines
687 B
Clojure
18 lines
687 B
Clojure
|
(ns dda.backup.management.domain-test
|
||
|
|
(:require
|
||
|
|
[clojure.test :refer [deftest is are testing run-tests]]
|
||
|
|
[clojure.spec.test.alpha :as st]
|
||
|
|
[dda.backup.management.domain :as cut]))
|
||
|
|
|
||
|
|
(st/instrument `cut/init-repo-command)
|
||
|
|
|
||
|
|
(deftest should-calculate-init-repo-command
|
||
|
|
(is (= ["restic" "-r" "repo/dir" "-v" "init" "--cacert" "ca"]
|
||
|
|
(cut/init-repo-command {:certificate-file "ca"
|
||
|
|
:restic-repository "repo"
|
||
|
|
:backup-file-path "dir"})))
|
||
|
|
(is (= ["restic" "-r" "repo/dir" "-v" "init"]
|
||
|
|
(cut/init-repo-command {:restic-repository "repo"
|
||
|
|
:backup-file-path "dir"})))
|
||
|
|
)
|
