From d3c31390cd761b14947202422e9d8aadeea46d4c Mon Sep 17 00:00:00 2001
From: Sam Varshavchik
Date: Mon, 21 Feb 2022 21:59:12 -0500
Subject: Fix make check.

---
 imap/testsuitefix.pl.in | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/imap/testsuitefix.pl.in b/imap/testsuitefix.pl.in
index 975e25d..d9229a1 100644
--- a/imap/testsuitefix.pl.in
+++ b/imap/testsuitefix.pl.in
@@ -22,6 +22,14 @@ sub sortflags {
     return join(" ", sort @w) . $sp;
 }
 
+sub sortflags2 {
+    my ($n)=@_;
+
+    my @w = split(/,/,$n);
+
+    return join(",", sort @w);
+}
+
 while (<>)
 {
     s/UIDVALIDITY \d+/UIDVALIDITY/;
@@ -31,6 +39,8 @@ while (<>)
     s/^\* ADD \"UID=.*/* ADD UID/;
     s/^\* COPY \d+ \"NEWUID=.*/* COPY NEWUID/;
     s/^(\* (\d+ FETCH \()?FLAGS \(|\* OK \[PERMANENTFLAGS \()([^\\\)]+)/$1 . sortflags($3)/e;
+    s/^(\* FETCH \d+ .*"[-+]?KEYWORDS=)([^"]+)/$1 . sortflags2($2)/e;
+
     printf("%06d %s", $n, $_);
     ++$n unless $_ =~ /^\* (LIST|LSUB|ENABLED)/ || $_ =~ /Options enabled/;
 }
-- 
cgit v1.2.3