# 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