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
|
(ns test-handler-context
(:use
midje.sweet
[ring.mock.request :only [request header]]
[liberator.core :only [defresource resource]]
[liberator.representation :only [ring-response]]))
(defn ^:private negotiate [header-key resource-key representation-key available accepted]
(-> (request :get "")
(#(if accepted (header % header-key accepted) %))
((resource resource-key available
:handle-ok (fn [{representation :representation}]
(representation representation-key))))
((fn [resp] (if (= 200 (:status resp))
(:body resp)
(:status resp))))))
(facts "Single header negotiation"
(facts "Media type negotitation"
(tabular
(negotiate "Accept" :available-media-types :media-type ?available ?accepted) => ?negotiated
?available ?accepted ?negotiated
[] "text/html" 406
["text/html" "text/plain"] nil "text/html"
["text/html"] "text/html" "text/html"
["text/html" "text/plain"] "text/html" "text/html"
["text/html" "text/plain"] "text/html,text/foo" "text/html"
["text/html" "text/plain"] "text/html;q=0.1,text/plain" "text/plain"
["text/html" "text/plain"] "text/html;q=0.3,text/plain;q=0.2" "text/html"))
(facts "Language negotitation"
(facts "Only primary tag"
(tabular
(negotiate "Accept-Language" :available-languages :language ?available ?accepted) => ?negotiated
?available ?accepted ?negotiated
[] "en" 406
["en"] "en;q=garbage" "en"
["en"] "en;q=" "en"
["en"] "en" "en"
["en" "de"] "en;q=garabage,de;q=0.8" "de"
["en" "de"] "de" "de"
["en" "de"] "de,fr" "de"
["en" "de"] "de;q=0.1,en" "en"
["en" "de"] "de;q=0.3,en;q=0.2;fr=0.9;la" "de"
["en" "de"] "de;q=0.3,en;q=0.2;fr=0.9;la" "de"))
(future-facts "with subtag"
(tabular
(negotiate "Accept-Language" :available-languages :language ?available ?accepted) => ?negotiated
?available ?accepted ?negotiated
[] "en-GB" 406
["en"] "en-GB" "en"
["en-GB" "de"] "de" "de"
["en" "de-AT"] "de,fr" "de"
["en-US" "de"] "de;q=0.1,en" "en"
["en-US" "en-GB"] "en-US" "en-US"
["en-US" "en-GB"] "en" "en")))
(facts "Charset negotitation"
(tabular
(negotiate "Accept-Charset" :available-charsets :charset ?available ?accepted) => ?negotiated
?available ?accepted ?negotiated
[] "ascii" 406
["utf-8"] "ascii" 406
["utf-8"] "utf-8;q=0.7)" "utf-8"
["utf-8"] "utf-8" "utf-8"
["ascii" "utf-8"] "ascii;q=0.7),utf-8" "utf-8"
["ascii" "utf-8"] "utf-8" "utf-8"
["ascii" "utf-8"] "utf-8,fr" "utf-8"
["ascii" "utf-8"] "ascii;q=0.1,utf-8" "utf-8"
["ascii" "utf-8"] "utf-8;q=0.3,ascii;q=0.2;iso8859-1=0.9;iso-8859-2" "utf-8"))
(facts "Encoding negotitation"
(tabular
(negotiate "Accept-Encoding" :available-encodings :encoding ?available ?accepted) => ?negotiated
?available ?accepted ?negotiated
[] "gzip" "identity"
["gzip"] "gzip" "gzip"
["gzip"] "gzip;q=foo" "gzip"
["compress"] "gzip" "identity"
["gzip" "compress"] "compress" "compress"
["gzip" "compress"] "compress;q=0.A,gzip;q=0.1" "gzip"
["gzip" "compress"] "compress,fr" "compress"
["gzip" "compress"] "compress;q=0.1,gzip" "gzip"
["gzip" "compress"] "compress;q=0.3,gzip;q=0.2;fr=0.9;la" "compress")))
|
