diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-12 11:20:27 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-12 12:11:06 +0200 |
commit | 5483072b0fde84eb59b77a4e44135269a51889f6 (patch) | |
tree | 3a86b23414b97f2a7478d02e1cd10551c3ef9d74 /tests/test | |
parent | UNFINISHED webdav server. (diff) | |
download | calp-5483072b0fde84eb59b77a4e44135269a51889f6.tar.gz calp-5483072b0fde84eb59b77a4e44135269a51889f6.tar.xz |
Fix copy for file resources.
Diffstat (limited to '')
-rw-r--r-- | tests/test/webdav-server.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/test/webdav-server.scm b/tests/test/webdav-server.scm index 64a9e144..67747de7 100644 --- a/tests/test/webdav-server.scm +++ b/tests/test/webdav-server.scm @@ -264,7 +264,9 @@ (parameterize ((root-resource (make <virtual-resource> name: "*root*"))) (add-resource! (root-resource) "a" "Content of A") (let ((a (lookup-resource (root-resource) '("a")))) - (set-property! a `(,(xml prop-ns 'test) "prop-value"))) + (set-property! a `(,(xml prop-ns 'test) "prop-value")) + ;; Extra child added to ensure deep copy works + (add-resource! a "d" "Content of d")) (test-group "cp /a /c" (let ((response _ @@ -309,9 +311,9 @@ (test-eqv "Check that reported replaced" 204 (response-code response)) (test-equal "Check that recursive resources where created" - '("/" "/a" "/c" + '("/" "/a" "/a/d" "/c" ;; New resources. Note that /c/c doesn't create an infinite loop - "/c/a" "/c/c") + "/c/a" "/c/a/d" "/c/c") (map car (sort* (map (lambda (p) (cons (href->string (car p)) (cdr p))) (all-resources-under (root-resource) '())) |