From f10e73ec4008a5a173755729dc922cff8cd9922e 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:44:43 +0100
Subject: [PATCH] At least some test coverage of the new member record
 implementation.

---
 member2-record.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/member2-record.scm b/member2-record.scm
index 412f232..e5868d5 100644
--- a/member2-record.scm
+++ b/member2-record.scm
@@ -102,6 +102,12 @@
 		   (file-name . "1234")
 		   (file-path . "members/1234")
 		   (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)))))
     ))
 
  )