blob: 4fb816c2b9cb019e794a0aaacd49c89529105447 (
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
|
(define-module (test webdav)
:use-module (srfi srfi-64)
:use-module (srfi srfi-71)
:use-module (srfi srfi-88)
:use-module (srfi srfi-1)
:use-module (oop goops)
:use-module (calp namespaces)
:use-module (datetime)
:use-module (calp webdav property)
:use-module (calp webdav resource)
:use-module (calp webdav resource virtual)
)
;;; NOTE these tests don't check that XML namespaces work correctly, but only as
;;; far as not checking that the correct namespace is choosen. They should fail if
;;; namespacing gets completely broken.
;;; TODO tests for a missing resource?
;;; TODO what am I doing here?
'((calp webdav resource virtual))
|