At least some test coverage of the new member record implementation.

This commit is contained in:
Dominik Pantůček 2023-03-25 15:44:43 +01:00
parent 968fc95e17
commit f10e73ec40

View file

@ -102,6 +102,12 @@
(file-name . "1234")
(file-path . "members/1234")
(symlinks "member")))
(test-equal? member-record-set
(member-record-set '() #:id 1234)
'((id . 1234)))
(test-equal? member-record-add-highlight
(member-record-add-highlight '() 123 "Interesting..." 0 'info)
'((highlights . ((123 "Interesting..." 0 info)))))
))
)