diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:26:40 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
commit | 712654d4c023a2ab13190c6905d313e0ba897965 (patch) | |
tree | b8505b420d6621022fa6a46271340071d8881322 /tests/unit/webdav | |
parent | Made displayln into a library export. (diff) | |
download | calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.gz calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.xz |
Rewrite test running system.
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)) |