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

Use new current month/day forms.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-22 21:51:08 +02:00
parent 03520fc63b
commit fc0d87cbdd
4 changed files with 51 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

82
src/brmember.scm
View file

@ -451,19 +451,21 @@
(make-ldict
'((highlights . ((123 "Interesting..." 0 info)))))))
(test-true brmember-destroyed?
(parameterize ((*current-month* (make-cal-month 2023 2)))
(with-current-month
(make-cal-month 2023 2)
(brmember-destroyed?
(make-ldict `((info . ,(make-ldict
`((member . (,(make-cal-period
(make-cal-month 2010 1)
(make-cal-month 2010 5))))))))))))
(test-false brmember-destroyed?
(with-current-month
(make-cal-month 2009 2)
(brmember-destroyed?
(make-ldict `((info . ,(make-ldict
`((member . (,(make-cal-period
(make-cal-month 2010 1)
(make-cal-month 2001 1)
(make-cal-month 2010 5))))))))))))
(test-false brmember-destroyed?
(parameterize ((*current-month* (make-cal-month 2009 2)))
(brmember-destroyed?
(make-ldict `((info . ,(make-ldict
`((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
@ -471,27 +473,30 @@
(make-cal-month 2015 1)
#f))))))))))
(test-true brmember-suspended?
(parameterize ((*current-month* (make-cal-month 2015 2)))
(brmember-suspended?
(make-ldict `((info . ,(make-ldict
`((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* (make-cal-month 2015 2)))
(brmember-suspended?
(make-ldict `((info . ,(make-ldict
`((member . (,(make-cal-period
(make-cal-month 2015 1)
#f)))
(suspend (make-cal-period
(with-current-month
(make-cal-month 2015 2)
(brmember-suspended?
(make-ldict `((info . ,(make-ldict
`((member . (,(make-cal-period
(make-cal-month 2015 1)
#f)))
(suspend ,(make-cal-period
(make-cal-month 2010 1)
#f #f #f))))))))))
(make-cal-month 2022 4) #f #f))))))))))
(test-true brmember-suspended?
(with-current-month
(make-cal-month 2015 2)
(brmember-suspended?
(make-ldict `((info . ,(make-ldict
`((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* (make-cal-month 2023 2)))
(with-current-month
(make-cal-month 2023 2)
(brmember-suspended?
(make-ldict `((info . ,(make-ldict
`((member . (,(make-cal-period
@ -501,16 +506,17 @@
(make-cal-month 2022 4)
#f #f))))))))))
(test-true brmember-active?
(parameterize ((*current-month* (make-cal-month 2023 2)))
(brmember-active?
(make-ldict `((info . ,(make-ldict
`((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))))))))))
(with-current-month
(make-cal-month 2023 2)
(brmember-active?
(make-ldict `((info . ,(make-ldict
`((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))))))))))
))
)