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

Improve period checking with current month.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-18 16:02:21 +01:00
parent 798cfe318c
commit 4c5b3db247
2 changed files with 31 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

16
member-record.scm
View file

@ -86,12 +86,24 @@
(month<? (string->month destroyed)
(*current-month*)))))
;; Returns true if the member is now suspended
(define (member-suspended? mr)
(let ((suspended (mr-ref mr 'suspended #f)))
(and suspended
(month-in-periods? suspended))))
;; Performs module self-tests.
(define (member-record-tests!)
(run-tests
member-record
(test-true member-destroyed?
(member-destroyed? '((info . ((destroyed . "2010-05"))))))
(parameterize ((*current-month* (list 2023 2)))
(test-true member-destroyed?
(member-destroyed? '((info . ((destroyed . "2010-05")))))))
(parameterize ((*current-month* (list 2009 2)))
(test-false member-destroyed?
(member-destroyed? '((info . ((destroyed . "2010-05")))))))
(test-false member-destroyed?
(member-destroyed? '((info . ()))))
))
)