25 lines
837 B
Clojure
25 lines
837 B
Clojure
|
(ns dda.backup.restore.domain-test
|
||
|
|
(:require
|
||
|
|
[clojure.test :refer [deftest is are testing run-tests]]
|
||
|
|
[clojure.spec.test.alpha :as st]
|
||
|
|
[dda.backup.restore.domain :as cut]))
|
||
|
|
|
||
|
|
(st/instrument `cut/restore-dir-command)
|
||
|
|
|
||
|
|
(deftest should-calculate-restore-dir
|
||
|
|
(is (= [["rm" "-rf" "dir-to-backup"]
|
||
|
|
["restic"
|
||
|
|
"-r"
|
||
|
|
"repo/dir-at-repo"
|
||
|
|
"-v"
|
||
|
|
"restore"
|
||
|
|
"latest"
|
||
|
|
"--target"
|
||
|
|
"dir-to-backup"]]
|
||
|
|
(cut/restore-dir-command {:restic-repository "repo"
|
||
|
|
:backup-path "dir-at-repo"
|
||
|
|
:target-directory "dir-to-backup"
|
||
|
|
:days-to-keep 39
|
||
|
|
:months-to-keep 3
|
||
|
|
:snapshot-id "latest"}))))
|
