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

Fix member-record tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 19:15:24 +02:00
parent c35d6585cc
commit 817a1c8422
2 changed files with 14 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
member-fees.scm
View file

@ -59,8 +59,9 @@
(define (member-calendar mr . args)
(let ((last-month (if (null? args)
(*current-month*)
(car args))))
(let loop ((cm (period-since (member-record-info mr 'member)))
(car args)))
(first-month (period-since (car (member-record-info mr 'member)))))
(let loop ((cm first-month)
(cal '()))
(if (month>? cm last-month)
(reverse cal)

20
member-record.scm
View file

@ -346,26 +346,28 @@
'((highlights . ((123 "Interesting..." 0 info)))))
(test-true member-destroyed?
(parameterize ((*current-month* (list 2023 2)))
(member-destroyed? '((info . ((destroyed . "2010-05")))))))
(member-destroyed? '((info . ((member . (((2010 1) (2010 5))))))))))
(test-false member-destroyed?
(parameterize ((*current-month* (list 2009 2)))
(member-destroyed? '((info . ((destroyed . "2010-05")))))))
(test-false member-destroyed?
(member-destroyed? '((info . ()))))
(member-destroyed? '((info . ((member . (((2001 1) (2010 5))))))))))
(test-false member-suspended?
(member-suspended? '((info . ()))))
(member-suspended? '((info . ((member . (((2015 1) #f))))))))
(test-true member-suspended?
(parameterize ((*current-month* (list 2015 2)))
(member-suspended? '((info . ((suspend ((2010 1) (2022 4) #f #f))))))))
(member-suspended? '((info . ((member . (((2015 1) #f)))
(suspend ((2010 1) (2022 4) #f #f))))))))
(test-true member-suspended?
(parameterize ((*current-month* (list 2015 2)))
(member-suspended? '((info . ((suspend ((2010 1) #f #f #f))))))))
(member-suspended? '((info . ((member . (((2015 1) #f)))
(suspend ((2010 1) #f #f #f))))))))
(test-false member-suspended?
(parameterize ((*current-month* (list 2023 2)))
(member-suspended? '((info . ((suspend ((2010 1) (2022 4) #f #f))))))))
(member-suspended? '((info . ((member . (((2015 1) #f)))
(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) #f #f))))))))
(member-active? '((info . ((member . (((2015 1) #f)))
(suspend ((2010 1) (2022 4) #f #f))))))))
))
)