Make self-tests optional.

brmsaptool.scm

@@ -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))