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

Fix static linkage and member-record tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-27 22:36:01 +02:00
parent 1bcba20a11
commit 68c2d2e11b
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
member-record.scm
View file

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