14 lines
473 B
Clojure
14 lines
473 B
Clojure
|
(ns dda.build.gopass.domain-test
|
||
|
|
(:require
|
||
|
|
[clojure.test :refer [deftest is]]
|
||
|
|
[clojure.spec.test.alpha :as st]
|
||
|
|
[dda.build.gopass.domain :as cut]))
|
||
|
|
|
||
|
|
(st/instrument `cut/gopass-show-command)
|
||
|
|
|
||
|
|
(deftest should-show-gopass-command
|
||
|
|
(is (= ["gopass" "show" "-y" "-o" "test/pass"]
|
||
|
|
(cut/gopass-show-command {:path "test/pass"})))
|
||
|
|
(is (= ["gopass" "show" "-y" "-o" "test/pass" "field"]
|
||
|
|
(cut/gopass-show-command {:path "test/pass" :field "field"}))))
|
