Start work on new member record handling.

This commit is contained in:
Dominik Pantůček 2023-03-25 15:08:36 +01:00
parent 0d9a0a1d89
commit 364b76ae3a

View file

@ -66,6 +66,12 @@
'((file-name . "1234")
(file-path . "members/1234")
(symlinks "member")))
(test-equal? make-member-record
(make-member-record "1234" "members/1234" '("member") #:id 1234)
'((id . 1234)
(file-name . "1234")
(file-path . "members/1234")
(symlinks "member")))
))
)