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) (define (member-calendar mr . args)
(let ((last-month (if (null? args) (let ((last-month (if (null? args)
(*current-month*) (*current-month*)
(car args)))) (car args)))
(let loop ((cm (period-since (member-record-info mr 'member))) (first-month (period-since (car (member-record-info mr 'member)))))
(let loop ((cm first-month)
(cal '())) (cal '()))
(if (month>? cm last-month) (if (month>? cm last-month)
(reverse cal) (reverse cal)

20
member-record.scm
View file

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