alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu-scm: add support for references

Browse Source 
Message method + test + docs.
This commit is contained in:
Dirk-Jan C. Binnema
2025-06-28 11:17:34 +03:00
parent 123c0c1bc8
commit f66172db3b
3 changed files with 43 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
scm/mu-scm-test.scm
View File

@ -70,13 +70,26 @@
(test-end "test-message-full")))
(define (test-misc)
(define (test-message-more)
(test-begin "test-message-more")
(let ((msg (car (mfind "to:dfgh@floppydisk.nl"))))
(test-equal "Re: xyz" (subject msg))
(test-equal "Mozilla Thunderbird 1.0.7 (X11/20051010)" (header msg "User-Agent"))
(test-equal '("439C1136.90504@euler.org" "4399DD94.5070309@euler.org"
"20051209233303.GA13812@gauss.org" "439B41ED.2080402@euler.org"
"439A1E03.3090604@euler.org" "20051211184308.GB13513@gauss.org")
(references msg)))
(test-end "test-message-more"))
(define (test-options)
(test-begin "test-options")
(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)))
(test-equal (assoc-ref opts 'muhome) #f))
(test-end "test-options"))
(define (test-helpers)
(test-begin "test-helpers")
@ -96,7 +109,8 @@
(test-basic-mfind)
(test-mfind)
(test-message-full)
(test-misc)
(test-message-more)
(test-options)
(test-helpers)
(test-end "mu-scm-tests")