mu-scm: add options, some tweaks

Add the (options) procedure + docs.

Some internal tweaks / clean-ups.
This commit is contained in:
Dirk-Jan C. Binnema
2025-06-20 20:31:32 +03:00
parent e647ca924d
commit 812d78be49
7 changed files with 74 additions and 30 deletions

View File

@ -53,6 +53,15 @@
(test-end "test-mfind"))
(define (test-misc)
(let ((opts (options)))
(test-assert (>= (length opts) 4))
(test-equal (assoc-ref opts 'quiet) #f)
(test-equal (assoc-ref opts 'debug) #f)
(test-equal (assoc-ref opts 'verbose) #f)
(test-equal (assoc-ref opts 'muhome) #f)))
(define (test-helpers)
(test-begin "test-helpers")
(test-equal 1750077792 (iso-date->time-t "2025-06-16T12:43:12"))
@ -70,6 +79,7 @@
(test-basic)
(test-basic-mfind)
(test-mfind)
(test-misc)
(test-helpers)
(test-end "mu-scm-tests")