blob: 0555258b93b24620e1bd656a231d3b44e83186e3 (
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
|
(define-module (test web-query)
:use-module (srfi srfi-64)
:use-module (srfi srfi-88)
:use-module ((web query) :select (parse-query)))
(test-equal "Empty query gives empty assoc list"
'() (parse-query ""))
(test-equal "Simple key-value query"
'(key: "value") (parse-query "key=value"))
;; Slightly cumbersome check, since keys aren't ordered
(test-group
"Simple key-value query, with multiple keys"
(let ((kv-list (parse-query "k1=value&k2=1")))
(test-equal "value" (and=> (memv k1: kv-list) cadr))
(test-equal "1" (and=> (memv k2: kv-list) cadr))))
(test-equal "Values are HTTP-decoded"
'(key: " ") (parse-query "key=%20"))
(test-equal "Keys are HTTP-decoded"
'(A: "test") (parse-query "%41=test"))
(test-equal "Query with only key, value becomes key"
'(key: "key") (parse-query "key"))
(test-group
"Some with only key"
(let ((kv-list (parse-query "k1&k2=10")))
(test-equal "k1" (and=> (memv k1: kv-list) cadr))
(test-equal "10" (and=> (memv k2: kv-list) cadr))))
;; I don't know if HTTP allows this, but my code works like this
(test-equal "Value with equal in it"
'(key: "=") (parse-query "key=="))
|
