blob: a2d89812f597cbc78a26d89b944153bedfcffcd7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(ns weepinbell.storage-checker-test
(:require [clojure.test :refer [deftest testing is]]
[weepinbell.processor.storage-checker :refer [check-storage]]))
(deftest process-handler-storaga-checker-test
(testing "nil when not OK"
(is (nil? (check-storage {:ok? false} {}))))
(testing "no such webmention stored"
(let [data {:ok? true
:id "1234"
:wm {:s "s" :t "t"}}]
(is (= (check-storage data {:get (fn [& _] [])})
(-> data
(assoc :old-data [])
(assoc :new? true)
(assoc :ok? true))))))
(testing "webmention exists"
(let [data {:ok? true
:id "1234"
:wm {:s "s" :t "t"}}]
(is (= (check-storage data {:get (fn [& _] [{}])})
(-> data
(assoc :old-data [{}])
(assoc :new? false)
(assoc :ok? true)))))))
|
