# This file is part of GNU Mailutils                    -*- Autotest -*-
# Copyright (C) 2018-2021 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-multipart?])
AT_KEYWORDS([message])
WITH_MAILBOX([spool/mime.msg],
 [MU_GUILE_CHECK([
(display (mu-message-multipart? (test-message)))
(display (mu-message-multipart? (file->message "mbox")))],
  0,
  [#f#t])])
AT_CLEANUP