Re: test failure with MU_DEFAULT_SCHEME=maildir

[Sergey Poznyakoff]

Eray Aslan <eraya@a21an.org> ha escrit:

> I am getting test failures when configuring mailutils with
> MU_DEFAULT_SCHEME=maildir [1].

Please apply the attached patch.

Regards,
Sergey

>From e5ae56618dc2a15b9cff792be7315185bbd96ad2 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org>
Date: Tue, 7 Jan 2025 11:59:33 +0200
Subject: [PATCH] Fix testsuite (mda & mail) to work with arbitrary default
 mailbox type

* mail/testsuite/lib/mail.exp (default_mail_start): Force mbox
mailbox type.
* mda/mda/tests/forward.at: Likewise.
* mda/mda/tests/mda.at: Likewise.
* mda/tests/mda.sh (dumpmail): Handle only mbox.
---
 mail/testsuite/lib/mail.exp |  2 ++
 mda/mda/tests/forward.at    |  2 +-
 mda/mda/tests/mda.at        | 16 +---------------
 mda/tests/mda.sh            | 26 --------------------------
 4 files changed, 4 insertions(+), 42 deletions(-)

diff --git a/mail/testsuite/lib/mail.exp b/mail/testsuite/lib/mail.exp
index b7e68b252..9034d5785 100644
--- a/mail/testsuite/lib/mail.exp
+++ b/mail/testsuite/lib/mail.exp
@@ -51,6 +51,8 @@ proc default_mail_start {args} {
        append sw $MU_TOOL_FLAGS
     }

+    append sw " --set mailbox.mailbox-type=mbox"
+
     if [info exists host_board] {
        if [board_info $host_board exists top_srcdir] {
            append sw " --set \"mailbox.mail-spool='[board_info $host_board 
top_srcdir]/mail/testsuite/spool'\""
diff --git a/mda/mda/tests/forward.at b/mda/mda/tests/forward.at
index 08d22ac27..d4af639a3 100644
--- a/mda/mda/tests/forward.at
+++ b/mda/mda/tests/forward.at
@@ -19,7 +19,7 @@ AT_KEYWORDS([maidag forward])

 m4_pushdef([TESTMDA_CONF],[cat > testmda.conf <<EOF
 mailbox {
-  mailbox-pattern "$(pwd)/spool/\${user}";
+  mailbox-pattern "mbox://$(pwd)/spool/\${user}";
 }

 mailer {
diff --git a/mda/mda/tests/mda.at b/mda/mda/tests/mda.at
index b101ae054..5279f15de 100644
--- a/mda/mda/tests/mda.at
+++ b/mda/mda/tests/mda.at
@@ -16,7 +16,7 @@

 m4_pushdef([TESTMDA_CONF],[cat > testmda.conf <<EOF
 mailbox {
-  mailbox-pattern "$(pwd)/spool/\${user}";
+  mailbox-pattern "mbox://$(pwd)/spool/\${user}";
 }
 EOF
 ])
@@ -52,20 +52,6 @@ mkdir spool
 TESTMDA_CONF
 testmda  --from gulliver@example.net root < msg || exit $?
 dumpmail spool/root
-case $MU_DEFAULT_SCHEME in
-mbox)
-    head -1 spool/root
-    echo "$envelope" >> expout
-    ;;
-mh)
-    sed -n -e '/^X-Envelope-Date: */s///p' spool/root/1
-    echo "$date" >> expout
-    ;;
-maildir)
-    sed -n -e '/^X-Envelope-Date: */s///p' $(find spool/root/new -type f | 
head -n 1)
-    echo "$date" >> expout
-    ;;
-esac
 ],
 [0],
 [expout])
diff --git a/mda/tests/mda.sh b/mda/tests/mda.sh
index 208602afc..90a8d6cfc 100644
--- a/mda/tests/mda.sh
+++ b/mda/tests/mda.sh
@@ -16,33 +16,7 @@

 INPUT_MSG=$abs_top_srcdir/mda/tests/input.msg
 dumpmail() {
-    case $MU_DEFAULT_SCHEME in
-       mbox)
            sed -e '/^From /d'\
                -e /^X-IMAPbase:/d\
                 -e /^X-UID:/d $1
-           ;;
-       dotmail)
-           sed -e '/^\.$/d'\
-               -e /^X-IMAPbase:/d\
-                -e /^X-UID:/d $1
-           ;;
-       mh)
-           sed -e /^X-IMAPbase:/d\
-                -e /^X-UID:/d\
-                -e /^X-Envelope-Sender:/d\
-                -e /^X-Envelope-Date:/d $1/1
-           ;;
-       maildir)
-           f=$(find $1/new -type f | head -n 1)
-           if test -n $f; then
-               sed -e /^X-IMAPbase:/d\
-                    -e /^X-UID:/d\
-                    -e /^X-Envelope-Sender:/d\
-                    -e /^X-Envelope-Date:/d $f
-           fi
-           ;;
-       *)  # Should not happen
-           echo >&2 "Default mailbox format is uknown"
-    esac
 }
--
2.35.1