At least some test coverage of the new member record implementation.
This commit is contained in:
parent
968fc95e17
commit
f10e73ec40
1 changed files with 6 additions and 0 deletions
|
@ -102,6 +102,12 @@
|
||||||
(file-name . "1234")
|
(file-name . "1234")
|
||||||
(file-path . "members/1234")
|
(file-path . "members/1234")
|
||||||
(symlinks "member")))
|
(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)))))
|
||||||
))
|
))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue