test(processor): test updating and deleting exisiting webmentions

1 files changed, 53 insertions, 9 deletions

diff --git a/test/weepinbell/processor_test.clj b/test/weepinbell/processor_test.clj
index 5298f99..7b79338 100644
--- a/test/weepinbell/processor_test.clj
+++ b/test/weepinbell/processor_test.clj
@@ -9,19 +9,24 @@
                     :on-update  (fn [])
                     :on-receive (fn [])})
 
-(def mock-storage {:append  (fn [_])
-                   :update  (fn [_ _ _])
-                   :delete  (fn [_ _])
-                   :get     (fn [_ _])})
+;; Testing process-new-webmention
+;; though we're calling a proxy function (process-webmention)
+;; But the arguments and storage vtables that test cases provide
+;; should result in a call to process-new-webmention
 
-(defmacro with-new-webmention [[source-route source-resp target-route target-resp] & body]
+(defmacro with-webmention [existance [source-route source-resp target-route target-resp] & body]
   (let [source-url (str "http://localhost:38888" source-route)
         target-url (str "http://localhost:38888" target-route)]
     `(let [handler# (routes
                       (GET ~source-route [] ~source-resp)
                       (GET ~target-route [] ~target-resp))
            ~'created (promise)
-           ~'storage (assoc mock-storage :append (fn [~'_] (deliver ~'created true)))
+           ~'deleted (promise)
+           ~'updated (promise)
+           ~'storage {:append  (fn [~'_] (deliver ~'created true))
+                      :update  (fn [~'_ ~'_ ~'_] (deliver ~'updated true))
+                      :delete  (fn [~'_ ~'_] (deliver ~'deleted true))
+                      :get     (fn [~'_ ~'_] (= ~existance :old))}
            ~'server (run-jetty handler# {:port 38888 :join? false})]
        (p/process-webmention {:s ~source-url :t ~target-url}
                              mock-callbacks
@@ -31,7 +36,7 @@
 
 (deftest new-webmention-test
   (testing "Creating a new webmention."
-    (with-new-webmention ["/source" {:status 200
+    (with-webmention :new ["/source" {:status 200
                                  :headers {"Content-Type" "text/plain"}
                                  :body (str "Oh I love this post: "
                                             "http://localhost:38888/target")}
@@ -42,7 +47,7 @@
 
 (deftest new-webmention-content-type-fail-test
   (testing "One of source and target has unsupported Content-Type"
-    (with-new-webmention ["/source" {:status 200
+    (with-webmention :new ["/source" {:status 200
                                  :headers {"Content-Type" "text/plain"}
                                  :body (str "Oh I love this post: "
                                             "http://localhost:38888/target")}
@@ -53,7 +58,7 @@
 
 (deftest new-webmention-no-target-url-fail-test
   (testing "The source does not contain target URL"
-    (with-new-webmention ["/source" {:status 200
+    (with-webmention :new ["/source" {:status 200
                                  :headers {"Content-Type" "text/plain"}
                                  :body (str "Oh I love this post "
                                             "but I don't mention it.")}
@@ -61,3 +66,42 @@
                                  :headers {"Content-Type" "application/json"}
                                  :body "Nothing here"}]
       (is (not (deref created 1000 nil))))))
+
+;; Testing process-existing-webmention
+
+(deftest old-webmention-update-test 
+  (testing "Updating exisiting webmention if links are still valid."
+    (with-webmention :old ["/source" {:status 200 
+                                      :headers {"Content-Type" "text/plain"}
+                                      :body (str "Oh I love this post "
+                                                 "http://localhost:38888/target")}
+                           "/target" {:status 200 
+                                      :headers {"Content-Type" "text/plain"}
+                                      :body "Nothing here"}]
+      (is (deref updated 100 nil)))))
+
+(deftest old-webmention-no-target-link-delete-test 
+  (testing "Deleting exisiting webmention if source doest no mention target anymore."
+    (with-webmention :old ["/source" {:status 200 
+                                      :headers {"Content-Type" "text/plain"}
+                                      :body "Nothing Here"}
+                           "/target" {:status 200
+                                      :headers {"Content-Type" "text/plain"}}]
+      (is (deref deleted 100 nil)))))
+
+(deftest old-webmention-source-not-found-delete-test 
+  (testing "Deleting exisiting webmention if source is not there."
+    (with-webmention :old ["/source" {:status 404
+                                      :headers {"Content-Type" "text/plain"}}
+                           "/target" {:status 200
+                                      :headers {"Content-Type" "text/plain"}}]
+      (is (deref deleted 100 nil)))))
+
+(deftest old-webmention-target-not-found-delete-test
+  (testing "Deleting exisiting webmention if source is not there."
+    (with-webmention :old ["/source" {:status 200
+                                      :headers {"Content-Type" "text/plain"}}
+                           "/target" {:status 404
+                                      :headers {"Content-Type" "text/plain"}}]
+      (is (deref deleted 100 nil)))))
+