From 364b76ae3aabd0349393e530661b4ae51ab97340 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
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")))
     ))
 
  )