mirror of
https://github.com/mjl-/mox.git
synced 2024-12-26 16:33:47 +03:00
40163bd145
the mailbox select/examine responses now return all flags used in a mailbox in the FLAGS response. and indicate in the PERMANENTFLAGS response that clients can set new keywords. we store these values on the new Message.Keywords field. system/well-known flags are still in Message.Flags, so we're recognizing those and handling them separately. the imap store command handles the new flags. as does the append command, and the search command. we store keywords in a mailbox when a message in that mailbox gets the keyword. we don't automatically remove the keywords from a mailbox. there is currently no way at all to remove a keyword from a mailbox. the import commands now handle non-system/well-known keywords too, when importing from mbox/maildir. jmap requires keyword support, so best to get it out of the way now.
84 lines
3.8 KiB
Go
84 lines
3.8 KiB
Go
package imapserver
|
|
|
|
import (
|
|
"strings"
|
|
"testing"
|
|
|
|
"github.com/mjl-/mox/imapclient"
|
|
)
|
|
|
|
func TestStore(t *testing.T) {
|
|
tc := start(t)
|
|
defer tc.close()
|
|
|
|
tc.client.Login("mjl@mox.example", "testtest")
|
|
tc.client.Enable("imap4rev2")
|
|
|
|
tc.client.Append("inbox", nil, nil, []byte(exampleMsg))
|
|
tc.client.Select("inbox")
|
|
|
|
uid1 := imapclient.FetchUID(1)
|
|
noflags := imapclient.FetchFlags(nil)
|
|
|
|
tc.transactf("ok", "store 1 flags.silent ()")
|
|
tc.xuntagged()
|
|
|
|
tc.transactf("ok", `store 1 flags ()`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, noflags}})
|
|
tc.transactf("ok", `fetch 1 flags`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, noflags}})
|
|
|
|
tc.transactf("ok", `store 1 flags.silent (\Seen)`)
|
|
tc.xuntagged()
|
|
tc.transactf("ok", `fetch 1 flags`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{`\Seen`}}})
|
|
|
|
tc.transactf("ok", `store 1 flags ($Junk)`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{`$Junk`}}})
|
|
tc.transactf("ok", `fetch 1 flags`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{`$Junk`}}})
|
|
|
|
tc.transactf("ok", `store 1 +flags ()`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{`$Junk`}}})
|
|
tc.transactf("ok", `store 1 +flags (\Deleted)`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{`\Deleted`, `$Junk`}}})
|
|
tc.transactf("ok", `fetch 1 flags`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{`\Deleted`, `$Junk`}}})
|
|
|
|
tc.transactf("ok", `store 1 -flags \Deleted $Junk`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, noflags}})
|
|
tc.transactf("ok", `fetch 1 flags`)
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, noflags}})
|
|
|
|
tc.transactf("bad", "store 2 flags ()") // ../rfc/9051:7018
|
|
|
|
tc.transactf("ok", "uid store 1 flags ()")
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, noflags}})
|
|
|
|
tc.transactf("ok", "store 1 flags (new)") // New flag.
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{"new"}}})
|
|
tc.transactf("ok", "store 1 flags (new new a b c)") // Duplicates are ignored.
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{"new", "a", "b", "c"}}})
|
|
tc.transactf("ok", "store 1 +flags (new new c d e)")
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{"new", "a", "b", "c", "d", "e"}}})
|
|
tc.transactf("ok", "store 1 -flags (new new e a c)")
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{"b", "d"}}})
|
|
tc.transactf("ok", "store 1 flags ($Forwarded Different)")
|
|
tc.xuntagged(imapclient.UntaggedFetch{Seq: 1, Attrs: []imapclient.FetchAttr{uid1, imapclient.FetchFlags{"$Forwarded", "different"}}})
|
|
|
|
tc.transactf("bad", "store") // Need numset, flags and args.
|
|
tc.transactf("bad", "store 1") // Need flags.
|
|
tc.transactf("bad", "store 1 +") // Need flags.
|
|
tc.transactf("bad", "store 1 -") // Need flags.
|
|
tc.transactf("bad", "store 1 flags ") // Need flags.
|
|
tc.transactf("bad", "store 1 flags ") // Need flags.
|
|
|
|
tc.client.Unselect()
|
|
tc.transactf("ok", "examine inbox") // Open read-only.
|
|
|
|
// Flags are added to mailbox, not removed.
|
|
flags := strings.Split(`\Seen \Answered \Flagged \Deleted \Draft $Forwarded $Junk $NotJunk $Phishing $MDNSent new a b c d e different`, " ")
|
|
tc.xuntaggedCheck(false, imapclient.UntaggedFlags(flags))
|
|
|
|
tc.transactf("no", `store 1 flags ()`) // No permission to set flags.
|
|
}
|