diff options
Diffstat (limited to '')
-rw-r--r-- | tests/unit/webdav/webdav-file.scm (renamed from tests/test/webdav-file.scm) | 3 | ||||
-rw-r--r-- | tests/unit/webdav/webdav-server.scm (renamed from tests/test/webdav-server.scm) | 2 | ||||
-rw-r--r-- | tests/unit/webdav/webdav-tree.scm (renamed from tests/test/webdav-tree.scm) | 3 | ||||
-rw-r--r-- | tests/unit/webdav/webdav-util.scm (renamed from tests/test/webdav-util.scm) | 2 | ||||
-rw-r--r-- | tests/unit/webdav/webdav.scm (renamed from tests/test/webdav.scm) | 6 |
5 files changed, 16 insertions, 0 deletions
diff --git a/tests/test/webdav-file.scm b/tests/unit/webdav/webdav-file.scm index 4096016b..85f4738d 100644 --- a/tests/test/webdav-file.scm +++ b/tests/unit/webdav/webdav-file.scm @@ -51,3 +51,6 @@ (test-group "Copy file" 'TODO) + +'((calp webdav resource) + (calp webdav resource file)) diff --git a/tests/test/webdav-server.scm b/tests/unit/webdav/webdav-server.scm index 67747de7..d5fa0e93 100644 --- a/tests/test/webdav-server.scm +++ b/tests/unit/webdav/webdav-server.scm @@ -349,3 +349,5 @@ ;;; Run REPORT + +'((calp server webdav)) diff --git a/tests/test/webdav-tree.scm b/tests/unit/webdav/webdav-tree.scm index 5c2a6a9b..da6073eb 100644 --- a/tests/test/webdav-tree.scm +++ b/tests/unit/webdav/webdav-tree.scm @@ -87,3 +87,6 @@ (test-equal "Hello, World!\n" (bytevector->string (content resource) (native-transcoder))) ) +'((calp webdav resource) + (calp webdav resource virtual) + (calp webdav resource file)) diff --git a/tests/test/webdav-util.scm b/tests/unit/webdav/webdav-util.scm index 5c89cf6c..c4e16536 100644 --- a/tests/test/webdav-util.scm +++ b/tests/unit/webdav/webdav-util.scm @@ -27,3 +27,5 @@ (test-error 'misc-error (href-relative '("c") '()))) + +'((calp webdav resource base)) diff --git a/tests/test/webdav.scm b/tests/unit/webdav/webdav.scm index 0962a89e..e86b5342 100644 --- a/tests/test/webdav.scm +++ b/tests/unit/webdav/webdav.scm @@ -351,3 +351,9 @@ (let ((root (make <virtual-resource> name: "*root*"))) (add-collection! root "child") (test-eqv "Child got added" 1 (length (children root))))) + + +'((calp webdav property) + (calp webdav propfind) + (calp webdav resource) + (calp webdav resource virtual)) |