Make self-tests optional.

This commit is contained in:
Dominik Pantůček 2023-03-20 12:26:49 +01:00
parent c32d27609a
commit bd873fccdf

View file

@ -42,26 +42,13 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print "brmsaptool 0.4 (c) 2023 Brmlab, z.s.")
(newline)
;; Run tests
(listing-tests!)
(dictionary-tests!)
(month-tests!)
(period-tests!)
(utils-tests!)
(ansi-tests!)
(member-file-tests!)
(command-line-tests!)
(members-base-tests!)
(primes-tests!)
(member-record-tests!)
(newline)
;; Command-line options and configurable parameters
(define *members-directory* (make-parameter "members"))
(define -member-id- (make-parameter #f))
(define -member-nick- (make-parameter #f))
(define -action- (make-parameter #f))
(define -fname- (make-parameter #f))
(define -run-tests?- (make-parameter #f))
;; Arguments parsing
(command-line
@ -89,8 +76,24 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(*current-month* (string->month month)))
(-print () "Print given member file"
(-action- 'print-member-file))
(-tests () "Run self-tests upon startup" (-run-tests?- #t))
)
;; Run tests
(when (-run-tests?-)
(listing-tests!)
(dictionary-tests!)
(month-tests!)
(period-tests!)
(utils-tests!)
(ansi-tests!)
(member-file-tests!)
(command-line-tests!)
(members-base-tests!)
(primes-tests!)
(member-record-tests!)
(newline))
;; Load the members database (required for everything anyway)
(define MB (load-members (*members-directory*) #t))