File: message-set-header-fields.at

package info (click to toggle)
mailutils 1%3A3.19-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 38,832 kB
  • sloc: ansic: 186,739; sh: 110,867; yacc: 7,463; cpp: 3,834; makefile: 3,161; lex: 1,972; python: 1,617; exp: 1,563; awk: 152; lisp: 132; sed: 31
file content (15 lines) | stat: -rw-r--r-- 828 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
# This file is part of GNU Mailutils                    -*- Autotest -*-
# Copyright (C) 2018-2025 Free Software Foundation, Inc.
# License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
# This is free software: you are free to change and redistribute it.
# There is NO WARRANTY, to the extent permitted by law.
AT_SETUP([message-set-header-fields])
AT_KEYWORDS([message])
MU_GUILE_CHECK([
(let ((msg (test-message)))
  (mu-message-set-header-fields msg '(("Sender" . "gray@example.org")
                                      ("Reply-To" . "root@example.org")))
  (display (sort-headers (mu-message-get-header-fields msg))))],
0,
[((From . user@example.org) (Reply-To . root@example.org) (Sender . gray@example.org) (Subject . De omnibus rebus et quibusdam aliis) (To . someone@example.com))])
AT_CLEANUP