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

Fix brmember tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-10 08:55:04 +02:00
parent f1707906d4
commit 04084da452
1 changed files with 40 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

57
src/brmember.scm
View file

@ -400,43 +400,66 @@
(make-ldict (make-ldict
'((highlights . ((123 "Interesting..." 0 info))))))) '((highlights . ((123 "Interesting..." 0 info)))))))
(test-true brmember-destroyed? (test-true brmember-destroyed?
(parameterize ((*current-month* (list 2023 2))) (parameterize ((*current-month* (make-cal-month 2023 2)))
(brmember-destroyed? (brmember-destroyed?
(make-ldict `((info . ,(make-ldict (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? (test-false brmember-destroyed?
(parameterize ((*current-month* (list 2009 2))) (parameterize ((*current-month* (make-cal-month 2009 2)))
(brmember-destroyed? (brmember-destroyed?
(make-ldict `((info . ,(make-ldict (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? (test-false brmember-suspended?
(brmember-suspended? (brmember-suspended?
(make-ldict `((info . ,(make-ldict (make-ldict `((info . ,(make-ldict
`((member . (((2015 1) #f)))))))))) `((member . (,(make-cal-period
(make-cal-month 2015 1)
#f))))))))))
(test-true brmember-suspended? (test-true brmember-suspended?
(parameterize ((*current-month* (list 2015 2))) (parameterize ((*current-month* (make-cal-month 2015 2)))
(brmember-suspended? (brmember-suspended?
(make-ldict `((info . ,(make-ldict (make-ldict `((info . ,(make-ldict
`((member . (((2015 1) #f))) `((member . (,(make-cal-period
(suspend ((2010 1) (2022 4) #f #f)))))))))) (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? (test-true brmember-suspended?
(parameterize ((*current-month* (list 2015 2))) (parameterize ((*current-month* (make-cal-month 2015 2)))
(brmember-suspended? (brmember-suspended?
(make-ldict `((info . ,(make-ldict (make-ldict `((info . ,(make-ldict
`((member . (((2015 1) #f))) `((member . (,(make-cal-period
(suspend ((2010 1) #f #f #f)))))))))) (make-cal-month 2015 1)
#f)))
(suspend (make-cal-period
(make-cal-month 2010 1)
#f #f #f))))))))))
(test-false brmember-suspended? (test-false brmember-suspended?
(parameterize ((*current-month* (list 2023 2))) (parameterize ((*current-month* (make-cal-month 2023 2)))
(brmember-suspended? (brmember-suspended?
(make-ldict `((info . ,(make-ldict (make-ldict `((info . ,(make-ldict
`((member . (((2015 1) #f))) `((member . (,(make-cal-period
(suspend ((2010 1) (2022 4) #f #f)))))))))) (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? (test-true brmember-active?
(parameterize ((*current-month* (list 2023 2))) (parameterize ((*current-month* (make-cal-month 2023 2)))
(brmember-active? (brmember-active?
(make-ldict `((info . ,(make-ldict (make-ldict `((info . ,(make-ldict
`((member . (((2015 1) #f))) `((member . (,(make-cal-period
(suspend ((2010 1) (2022 4) #f #f)))))))))) (make-cal-month 2015 1)
#f)))
(suspend (make-cal-period
(make-cal-month 2010 1)
(make-cal-month 2022 4)
#f #f))))))))))
)) ))
) )