23 lines
988 B
Clojure
23 lines
988 B
Clojure
|
(ns dda.backup.monitoring.domain-test
|
||
|
(:require
|
||
|
[clojure.test :refer [deftest is are testing run-tests]]
|
||
|
[clojure.spec.test.alpha :as st]
|
||
|
[dda.backup.monitoring.domain :as cut]))
|
||
|
|
||
|
(deftest should-calculate-backup-files-command
|
||
|
(is (= [{:baseLabels {:__name__ "backup_size"},
|
||
|
:docstring "Backup size in MB",
|
||
|
:metric {:type "gauge",
|
||
|
:value [{:labels
|
||
|
{:app_name "c4k-forgejo"
|
||
|
:fqdn "repo.prod.meissa.de"
|
||
|
:restic_repo "s3://..."},
|
||
|
:value 123}]}}]
|
||
|
(cut/backup-files-command {:restic-repository "repo"
|
||
|
:backup-path "dir-at-repo"
|
||
|
:execution-directory "dir-to-backup"
|
||
|
:days-to-keep 39
|
||
|
:months-to-keep 3
|
||
|
:files ["file2" "file2"]}))))
|
||
|
|