Rewrite test running system.

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))