From 364b76ae3aabd0349393e530661b4ae51ab97340 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 25 Mar 2023 15:08:36 +0100 Subject: [PATCH] Start work on new member record handling. --- member2-record.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/member2-record.scm b/member2-record.scm index 10760fd..1b89d09 100644 --- a/member2-record.scm +++ b/member2-record.scm @@ -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"))) )) )