Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (13 sloc) 441 Bytes
(ns publicator.domain.test.fakes.password-hasher
(:require
[publicator.domain.abstractions.password-hasher :as password-hasher]
[clojure.string :as str]))
(deftype PasswordHasher []
password-hasher/PasswordHasher
(-derive [_ password]
(str/reverse password))
(-check [_ attempt encrypted]
(= (str/reverse attempt)
encrypted)))
(defn binding-map []
{#'password-hasher/*password-hasher* (->PasswordHasher)})
You can’t perform that action at this time.