(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"}))))