From cf042d923f3dd9a6caf767d3f43140efec01ee17 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 24 Oct 2023 19:03:39 +0200 Subject: Repair webdav-propfind tests. --- tests/unit/webdav/webdav-propfind.scm | 14 ++++++++------ 1 file 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))) -- cgit v1.2.3