File: message-delete.at

package info (click to toggle)
mailutils 1%3A3.20-1
  • links: PTS, VCS
  • area: main
  • in suites: forky
  • size: 38,912 kB
  • sloc: ansic: 187,772; sh: 111,430; yacc: 7,463; cpp: 3,834; makefile: 3,166; lex: 1,972; python: 1,617; exp: 1,563; awk: 152; lisp: 132; sed: 31
file content (21 lines) | stat: -rw-r--r-- 756 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
# 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([mu-message-delete])
AT_KEYWORDS([message])
MU_GUILE_CHECK([
(let ((msg (test-message)))
  (display msg)(newline)
  (mu-message-delete msg)
  (display msg)(newline)
  (mu-message-delete msg #f)
  (display msg)(newline))],
 0,
[#<message "user@example.org" "Fri Jun  8 14:30" 10 539>
#<message "user@example.org" "Fri Jun  8 14:30" 10 539 D>
#<message "user@example.org" "Fri Jun  8 14:30" 10 539>
])
AT_CLEANUP