aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2023-10-23 03:16:46 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2023-10-23 03:16:46 +0200
commit61b1751c4bc94b4c2fe0398341bf61377e30b280 (patch)
treead02448ce0354e816b125c4f6e7f3ef6d97d7502 /tests
parentFixup in documentation. (diff)
downloadcalp-61b1751c4bc94b4c2fe0398341bf61377e30b280.tar.gz
calp-61b1751c4bc94b4c2fe0398341bf61377e30b280.tar.xz
Propstat stash.
Diffstat (limited to 'tests')
-rw-r--r--tests/unit/webdav/webdav-propfind.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/unit/webdav/webdav-propfind.scm b/tests/unit/webdav/webdav-propfind.scm
index 74511419..b3cc861f 100644
--- a/tests/unit/webdav/webdav-propfind.scm
+++ b/tests/unit/webdav/webdav-propfind.scm
@@ -18,11 +18,11 @@
(define (sort-propstats propstats)
(map
(lambda (propstat)
- (make-propstat (propstat-status-code propstat)
- (sort* (propstat-property propstat)
- string< (compose symbol->string xml-element-tagname car))
- (propstat-error propstat)
- (propstat-response-description propstat)))
+ (propstat (propstat-status-code propstat)
+ (sort* (propstat-property propstat)
+ string< (compose symbol->string xml-element-tagname car))
+ (propstat-error propstat)
+ (propstat-response-description propstat)))
(sort* propstats < propstat-status-code)))