blob: e405d4c6f98ec4ee9e9f7e2604bb3733f6f80d2f (
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
(ns weepinbell.wrapper-test
(:require [clojure.test :refer [deftest testing is]]
[clojure.string :refer [includes? replace]]
[clojure.spec.alpha :as s]
[weepinbell.utils.digest :refer [digest]]
[weepinbell.processor.wrapper :refer [wrap]]
[weepinbell.metadata.jf2-spec]
[weepinbell.http.client]
[weepinbell.utils.url :refer [url=]]
[org.httpkit.server :refer [run-server]]
[clojure.java.io :as io]))
(def photo-server-port 23232)
(def fake-photo (str "http://localhost:" photo-server-port "/favicon.avif"))
(def normal-source-html
(str "<html><head><title>Name</title></head>
<div class=h-entry>
<div class=e-content>test</div>
<div class=\"p-author h-card\">
<img alt=test src=\"" fake-photo "\" />
</div>
</div>
</html>"))
(deftest happy-path-wrap
(testing "Wrapping a normal webmention"
(with-redefs [weepinbell.http.client/default-options {:timeout 100}]
(let [;; serve local fake photo
photo-digest (digest fake-photo)
local-photo (str "data/avatars/" photo-digest ".avif")
photo-handler (fn [_] {:status 200
:headers {"Content-Type" "image/png"}
:body "ReaLly4IMagE"})
photo-server (run-server photo-handler {:port photo-server-port})
;; test wrapping
test-wrap (fn [] (wrap {:ok? true
:wm {:s "https://source.net"
:t "https://target.org"}
:source-html normal-source-html}
{:base-url "https://resource.com"}))
wrapped (:new-data (test-wrap))]
(is (= "https://source.net" (get-in wrapped [:webmention :source])))
(is (= "https://target.org" (get-in wrapped [:webmention :target])))
(is (= "b36497f812ccfde649996e21f8df83a6" (get-in wrapped [:webmention :id])))
(is (s/valid? :weepinbell.metadata.jf2-spec/jf2 (:jf2 wrapped)))
(is (.exists (io/file local-photo)))
(is (includes? (get-in wrapped [:extra :proxied-photo]) photo-digest))
;; wrap again to test if using local avatars
(is (includes? (get-in (test-wrap) [:new-data :extra :proxied-photo]) photo-digest))
;; clean up
(io/delete-file local-photo)
(photo-server))))
(testing "Wrapping a normal webmention with relative photo-url"
(with-redefs [weepinbell.http.client/default-options {:timeout 100}]
(let [;; serve local fake photo
photo-digest (digest fake-photo)
local-photo (str "data/avatars/" photo-digest ".avif")
photo-handler (fn [_] {:status 200
:headers {"Content-Type" "image/png"}
:body "ReaLly4IMagE"})
photo-server (run-server photo-handler {:port photo-server-port})
;; test wrapping
source-html (replace normal-source-html fake-photo "/favicon.avif")
wrapped (:new-data (wrap {:ok? true
:wm {:s (str "http://localhost:" photo-server-port)
:t "https://target.org"}
:source-html source-html}
{:base-url "https://resource.com"}))]
(is (includes? (get-in wrapped [:extra :proxied-photo]) photo-digest))
;; clean up
(io/delete-file local-photo)
(photo-server))))
(testing "Wrapping a webmention with no photo to proxy, checking JF2"
(let [source-html "<html><head><title>Name</title></head>
<div class=h-entry>
<div class=e-content>test</div>
<div class=\"p-author h-card\">
<a href=\"https://author.com/\" class=\"p-name u-url\">Author</a>
</div>
</div>
</html>"
wrapped (:new-data (wrap {:ok? true
:wm {:s "https://source.net"
:t "https://target.org"}
:source-html source-html}
{:base-url "https://resource.com"}))]
(is (= "Name" (get-in wrapped [:jf2 :name])))
(is (= "Author" (get-in wrapped [:jf2 :author :name])))
(is (url= "https://author.com/" (get-in wrapped [:jf2 :author :url])))
(is (= "test" (get-in wrapped [:jf2 :content :text])))))
(testing "Wrapper uses provided id"
(with-redefs [weepinbell.http.client/default-options {:timeout 100}]
(let [id "totally-accurate-SHA256-hash"
wrapped (:new-data (wrap {:ok? true
:id id
:wm {:s "https://source.net"
:t "https://target.org"}
:source-html normal-source-html}
{:base-url "https://resource.com"}))]
(is (= id (get-in wrapped [:webmention :id])))))))
|
