Start work on new member record handling.
This commit is contained in:
parent
0d9a0a1d89
commit
364b76ae3a
1 changed files with 6 additions and 0 deletions
|
@ -66,6 +66,12 @@
|
||||||
'((file-name . "1234")
|
'((file-name . "1234")
|
||||||
(file-path . "members/1234")
|
(file-path . "members/1234")
|
||||||
(symlinks "member")))
|
(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")))
|
||||||
))
|
))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue