From bd873fccdf9e1735e7bd7dda4e0ed6eacaf3c1b8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Mon, 20 Mar 2023 12:26:49 +0100
Subject: [PATCH] Make self-tests optional.

---
 brmsaptool.scm | 31 +++++++++++++++++--------------
 1 file changed, 17 insertions(+), 14 deletions(-)

diff --git a/brmsaptool.scm b/brmsaptool.scm
index cfe3d85..977d004 100644
--- a/brmsaptool.scm
+++ b/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))