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
|
(ns test-conneg
(:require [clojure.string :as string])
(:use liberator.conneg
checkers
midje.sweet))
(facts "charsets"
(tabular (fact (best-allowed-charset accept available) => (ignore-case negotiated))
accept available negotiated
"iso-8859-5, unicode-1-1;q=0.8" ["iso-8859-5" "unicode-1-1"] "iso-8859-5"
"iso-8859-15;q=1, utf-8;q=0.8, utf-16;q=0.6, iso-8859-1;q=0.8" ["iso-8859-15" "utf-16"] "iso-8859-15"
;; p102: "The special value \"*\", if present in the Accept-Charset
;; field, matches every character set (including ISO-8859-1) which is
;; not mentioned elsewhere in the Accept-Charset field. If no \"*\"
;; is present in an Accept-Charset field, then all character sets not
;; explicitly mentioned get a quality value of 0, except for
;; ISO-8859-1, which gets a quality value of 1 if not explicitly
;; mentioned."
;; iso-8859-1 gets the highest score because there is no * so it gets a quality value of 1
"iso-8859-15;q=0.6, utf-16;q=0.9" ["iso-8859-1" "iso-8859-15" "utf-16"] "iso-8859-1"
;; utf-16 gets the highest score because there is no * but iso-8859-1 is mentioned at a lower score
"iso-8859-15;q=0.6, utf-16;q=0.9, iso-8859-1;q=0.1" ["iso-8859-1" "iso-8859-15" "utf-16"] "utf-16"
"iso-8859-15;q=0.6, *;q=0.8, utf-16;q=0.9" ["iso-8859-15" "utf-16"] "utf-16"
;; ASCII should be returned because it matches *, which gives it a 0.8 score, higher than iso-8859-15
"iso-8859-15;q=0.6, *;q=0.8, utf-16;q=0.9" ["iso-8859-15" "ASCII"] "ASCII"
;; iso-8859-1 is always available unless score set to 0
"ascii;q=0.5" ["ascii" "ISO-8859-1"] "ISO-8859-1"
;; Nothing is returned because ASCII is gets a score of 0
"iso-8859-15;q=0.6, utf-16;q=0.9" ["ASCII"] nil
;; test some exotic formatting variants, not complete, though.
"iso-8859-15,\n\rASCII" ["ASCII"] "ASCII"
;; charset must be compared case insensitively
"ASCII" ["ascii"] "ascii"))
(facts "encoding negotiation"
(tabular (fact (best-allowed-encoding accept available) => negotiated)
accept available negotiated
"compress;q=0.4, gzip;q=0.2" ["compress" "gzip"] "compress"
"compress;q=0.4, gzip;q=0.8" ["compress" "gzip"] "gzip"
"identity, compress;q=0.4, gzip;q=0.8" ["compress" "gzip"] "identity"
"compress" ["gzip"] "identity"
"identity" ["gzip"] "identity"
"identity;q=0, bzip;q=0.1" ["gzip"] nil
"*;q=0, bzip;q=0.1" ["gzip"] nil
"*;q=0, identity;q=0.1" ["gzip"] "identity"))
;; Language negotiation (14.4)
(facts "encoding language"
(tabular (fact (best-allowed-language accept available) => negotiated)
;; 14.4 Accept-Language
;; 14.12 Content-Language (p118)
;; p103 :-
;; Accept-Language: da, en-gb;q=0.8, en;q=0.7
;;
;; would mean: "I prefer Danish, but will accept British English and
;; other types of English." A language-range matches a language-tag if
;; it exactly equals the tag...
accept available negotiated
"da, en-gb;q=0.8, en;q=0.7" #{"da" "en-gb" "en"} "da"
"da, en-gb;q=0.8, en;q=0.7" #{"en-gb" "en"} "en-gb"
;; ... or if it exactly equals a prefix of the tag such that the first tag
;; character following the prefix is "-".
"da, en-gb;q=0.8, en;q=0.7" #{"en"} "en"
"da, en-gb;q=0.8" #{"en-cockney"} nil
"da, en-gb;q=0.8, en;q=0.7" #{"en-cockney"} "en-cockney" ; at q=0.7
;; TODO
;; The special range "*", if present in the Accept-Language field,
;; matches every tag not matched by any other range present in the
;; Accept-Language field.
;; Multiple languages MAY be
;; listed for content that is intended for multiple audiences. For
;; example, a rendition of the "Treaty of Waitangi," presented
;; simultaneously in the original Maori and English versions, would
;; call for
;;
;; Content-Language: mi, en
"da, mi;q=0.8" #{["mi" "en"]} ["mi" "en"]))
|
