diff options
Diffstat (limited to 'tests/unit/webdav/webdav-propfind.scm')
-rw-r--r-- | tests/unit/webdav/webdav-propfind.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/tests/unit/webdav/webdav-propfind.scm b/tests/unit/webdav/webdav-propfind.scm index b3cc861f..143fe1cd 100644 --- a/tests/unit/webdav/webdav-propfind.scm +++ b/tests/unit/webdav/webdav-propfind.scm @@ -1,6 +1,8 @@ (define-module (test webdav-propfind) :use-module ((hnh util) :select (sort*)) :use-module ((calp namespaces) :select (webdav)) + :use-module (hnh util type) + :use-module (hnh util lens) :use-module (calp webdav property) :use-module (calp webdav propfind) :use-module (calp webdav resource virtual) @@ -17,12 +19,12 @@ (define (sort-propstats propstats) (map - (lambda (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))) + (lambda (pr) + (typecheck pr propstat?) + (modify pr propstat-property + (lambda (it) + (sort* it + string< (compose symbol->string xml-element-tagname car))))) (sort* propstats < propstat-status-code))) |