From 04084da452e7fd3d626d9fd29990198605a610d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 10 May 2023 08:55:04 +0200
Subject: [PATCH] Fix brmember tests.

---
 src/brmember.scm | 57 +++++++++++++++++++++++++++++++++---------------
 1 file changed, 40 insertions(+), 17 deletions(-)

diff --git a/src/brmember.scm b/src/brmember.scm
index 1ad12a1..0e994fd 100644
--- a/src/brmember.scm
+++ b/src/brmember.scm
@@ -400,43 +400,66 @@
 		(make-ldict
 		 '((highlights . ((123 "Interesting..." 0 info)))))))
     (test-true brmember-destroyed?
-	       (parameterize ((*current-month* (list 2023 2)))
+	       (parameterize ((*current-month* (make-cal-month 2023 2)))
 		 (brmember-destroyed?
 		  (make-ldict `((info . ,(make-ldict
-					  `((member . (((2010 1) (2010 5))))))))))))
+					  `((member . (,(make-cal-period
+							 (make-cal-month 2010 1)
+							 (make-cal-month 2010 5))))))))))))
     (test-false brmember-destroyed?
-		(parameterize ((*current-month* (list 2009 2)))
+		(parameterize ((*current-month* (make-cal-month 2009 2)))
 		  (brmember-destroyed?
 		   (make-ldict `((info . ,(make-ldict
-					   `((member . (((2001 1) (2010 5))))))))))))
+					   `((member . (,(make-cal-period
+							  (make-cal-month 2001 1)
+							  (make-cal-month 2010 5))))))))))))
     (test-false brmember-suspended?
 		(brmember-suspended?
 		 (make-ldict `((info . ,(make-ldict
-					 `((member . (((2015 1) #f))))))))))
+					 `((member . (,(make-cal-period
+							(make-cal-month 2015 1)
+							#f))))))))))
     (test-true brmember-suspended?
-	       (parameterize ((*current-month* (list 2015 2)))
+	       (parameterize ((*current-month* (make-cal-month 2015 2)))
 		 (brmember-suspended?
 		  (make-ldict `((info . ,(make-ldict
-					  `((member . (((2015 1) #f)))
-					    (suspend ((2010 1) (2022 4) #f #f))))))))))
+					  `((member . (,(make-cal-period
+							 (make-cal-month 2015 1)
+							 #f)))
+					    (suspend ,(make-cal-period
+						       (make-cal-month 2010 1)
+						       (make-cal-month 2022 4) #f #f))))))))))
     (test-true brmember-suspended?
-	       (parameterize ((*current-month* (list 2015 2)))
+	       (parameterize ((*current-month* (make-cal-month 2015 2)))
 		 (brmember-suspended?
 		  (make-ldict `((info . ,(make-ldict
-					  `((member . (((2015 1) #f)))
-					    (suspend ((2010 1) #f #f #f))))))))))
+					  `((member . (,(make-cal-period
+							 (make-cal-month 2015 1)
+							 #f)))
+					    (suspend (make-cal-period
+						      (make-cal-month 2010 1)
+						      #f #f #f))))))))))
     (test-false brmember-suspended?
-		(parameterize ((*current-month* (list 2023 2)))
+		(parameterize ((*current-month* (make-cal-month 2023 2)))
 		  (brmember-suspended?
 		   (make-ldict `((info . ,(make-ldict
-					   `((member . (((2015 1) #f)))
-					     (suspend ((2010 1) (2022 4) #f #f))))))))))
+					   `((member . (,(make-cal-period
+							  (make-cal-month 2015 1) #f)))
+					     (suspend (make-cal-period
+						       (make-cal-month 2010 1)
+						       (make-cal-onth 2022 4)
+						       #f #f))))))))))
     (test-true brmember-active?
-	       (parameterize ((*current-month* (list 2023 2)))
+	       (parameterize ((*current-month* (make-cal-month 2023 2)))
 		 (brmember-active?
 		  (make-ldict `((info . ,(make-ldict
-					  `((member . (((2015 1) #f)))
-					    (suspend ((2010 1) (2022 4) #f #f))))))))))
+					  `((member . (,(make-cal-period
+							 (make-cal-month 2015 1)
+							 #f)))
+					    (suspend (make-cal-period
+						      (make-cal-month 2010 1)
+						      (make-cal-month 2022 4)
+						      #f #f))))))))))
     ))
 
  )