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

Fix static linkage and member-record tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-27 22:36:01 +02:00
parent 1bcba20a11
commit 68c2d2e11b
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Makefile
View file

@ -50,17 +50,17 @@ BBSTOOL-SOURCES=bbstool.scm testing.scm listing.scm dictionary.scm \
month.scm period.scm ansi.scm command-line.scm \
members-base.scm utils.scm primes.scm member-record.scm \
configuration.scm progress.scm table.scm cards.scm \
member-print.scm member-parser.scm
member-print.scm member-parser.scm member-fees.scm
BBSTOOL-OBJS=testing.o listing.o month.o period.o ansi.o dictionary.o \
command-line.o members-base.o utils.o primes.o \
member-record.o configuration.o progress.o table.o cards.o \
member-print.o
member-print.o member-fees.o
BBSTOOL-SHARED=testing.so listing.so month.so period.so ansi.so \
dictionary.so command-line.so members-base.so utils.so \
primes.so member-record.so configuration.so progress.so \
table.so cards.so member-print.so
table.so cards.so member-print.so member-fees.so
.PHONY: imports
imports: $(BBSTOOL-DEPS)

8
member-record.scm
View file

@ -341,16 +341,16 @@
(member-suspended? '((info . ()))))
(test-true member-suspended?
(parameterize ((*current-month* (list 2015 2)))
(member-suspended? '((info . ((suspend ((2010 1) 2022 4))))))))
(member-suspended? '((info . ((suspend ((2010 1) (2022 4) #f #f))))))))
(test-true member-suspended?
(parameterize ((*current-month* (list 2015 2)))
(member-suspended? '((info . ((suspend ((2010 1) . #f))))))))
(member-suspended? '((info . ((suspend ((2010 1) #f #f #f))))))))
(test-false member-suspended?
(parameterize ((*current-month* (list 2023 2)))
(member-suspended? '((info . ((suspend ((2010 1) 2022 4))))))))
(member-suspended? '((info . ((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))))))))
(member-active? '((info . ((suspend ((2010 1) (2022 4) #f #f))))))))
))
)