brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix open period checking.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-18 16:50:51 +01:00
parent 637128ae92
commit d183e658b1
3 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
member-record.scm
View file

@ -122,6 +122,9 @@
(test-true member-suspended?
(parameterize ((*current-month* (list 2015 2)))
(member-suspended? '((info . ((suspend ((2010 1) 2022 4))))))))
(test-true member-suspended?
(parameterize ((*current-month* (list 2015 2)))
(member-suspended? '((info . ((suspend ((2010 1) . #f))))))))
(test-false member-suspended?
(parameterize ((*current-month* (list 2023 2)))
(member-suspended? '((info . ((suspend ((2010 1) 2022 4))))))))