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
|
(define-module (test webdav-property)
:use-module ((calp namespaces) :select (webdav))
:use-module ((calp webdav property)
:select (propstat merge-propstats propstat->namespaced-sxml))
:use-module (calp webdav resource)
:use-module (calp webdav resource virtual)
:use-module (datetime)
:use-module (oop goops)
:use-module (srfi srfi-64)
:use-module (srfi srfi-88)
:use-module (sxml namespaced)
)
(define dt
(datetime year: 2010 month: 11 day: 12
hour: 13 minute: 14 hour: 15))
(define resource (make <virtual-resource>
;; local-path: '("")
name: "*root"
content: #vu8(1 2 3 4)
creation-time: dt))
;; (test-equal "/" (href->string (href resource)))
(test-equal "Basic propstat"
(propstat 200 (list (list (xml webdav 'getcontentlength) 4)))
(getcontentlength resource))
;;; NOTE propstat's return order isn't stable, making this test possibly fail
(let ((ps (list (propstat 200 (list `(,(xml webdav 'displayname) "Displayname")))
(propstat 200 (list `(,(xml webdav 'getcontenttype) "text/plain"))))))
(test-equal "Propstat merger"
(list (propstat 200
(list (list (xml webdav 'getcontenttype) "text/plain")
(list (xml webdav 'displayname) "Displayname"))))
(merge-propstats ps)))
(test-group "Propstat -> namespaced sxml"
(test-equal "Simple"
`(,(xml webdav 'propstat)
(,(xml webdav 'prop) (,(xml webdav 'displayname) "test"))
(,(xml webdav 'status) "HTTP/1.1 200 OK"))
(propstat->namespaced-sxml (propstat 200 `((,(xml webdav 'displayname) "test")) )))
;; TODO populated error field
(test-equal "With response description"
`(,(xml webdav 'propstat)
(,(xml webdav 'prop) (,(xml webdav 'displayname) "test"))
(,(xml webdav 'status) "HTTP/1.1 403 Forbidden")
(,(xml webdav 'responsedescription) "Try logging in"))
(propstat->namespaced-sxml (propstat 403 `((,(xml webdav 'displayname) "test"))
responsedescription: "Try logging in"))))
'((calp webdav property))
|