diff --git a/src/Makefile b/src/Makefile index 4ab7480..0ac86cb 100644 --- a/src/Makefile +++ b/src/Makefile @@ -42,14 +42,14 @@ BBSTOOL-DEPS=bbstool.scm testing.import.scm listing.import.scm \ csv-simple.import.scm bank-account.import.scm \ bank-fio.import.scm members-payments.import.scm \ web-static.import.scm environment.import.scm \ - mailman.import.scm + mailman.import.scm util-set-list.import.scm BBSTOOL-OBJS=bbstool.o 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 \ members-print.o member-fees.o members-dir.o csv-simple.o \ bank-account.o bank-fio.o members-payments.o member-parser.o \ - web-static.o environment.o mailman.o + web-static.o environment.o mailman.o util-set-list.o .PHONY: imports imports: $(BBSTOOL-DEPS) @@ -236,3 +236,8 @@ MAILMAN-SOURCES=mailman.scm utils.import.scm progress.import.scm mailman.o: mailman.import.scm mailman.import.scm: $(MAILMAN-SOURCES) + +UTIL-SET-LIST-SOURCES=util-set-list.scm testing.import.scm + +util-set-list.o: util-set-list.import.scm +util-set-list.import.scm: $(UTIL-SET-LIST-SOURCES) diff --git a/src/util-set-list.scm b/src/util-set-list.scm index 076d041..1b658a6 100644 --- a/src/util-set-list.scm +++ b/src/util-set-list.scm @@ -235,9 +235,10 @@ (list->lset '(1 2 3 1 2)) (list->lset '(2 3 4 2 3)))) 1) + (test-equal? lset->list/ci + (lset-count + (list->lset '("Asdf" "asdf" "aSdf") string-ci=?)) + 1) )) ) - -(import util-set-list) -(lset-tests!)