mirror of
https://github.com/mjl-/mox.git
synced 2025-06-28 02:28:15 +03:00
577944310c
Keeping the message files around, and the message details in the database, is useful for IMAP sessions that haven't seen/processed the removal of a message yet and try to fetch it. Before, we would return errors. Similarly, a session that has a mailbox selected that is removed can (at least in theory) still read messages. The mechanics to do this need keeping removed mailboxes around too. JMAP needs that anyway, so we now keep modseq/createseq/expunged history for mailboxes too. And while we're at it, for annotations as well. For future JMAP support, we now also keep the mailbox parent id around for a mailbox, with an upgrade step to set the field for existing mailboxes and fixing up potential missing parents (which could possibly have happened in an obscure corner case that I doubt anyone ran into).
240 lines
7.9 KiB
Go
240 lines
7.9 KiB
Go
package imapserver
|
|
|
|
import (
|
|
"testing"
|
|
|
|
"github.com/mjl-/mox/imapclient"
|
|
"github.com/mjl-/mox/store"
|
|
)
|
|
|
|
func TestListBasic(t *testing.T) {
|
|
tc := start(t)
|
|
defer tc.close()
|
|
|
|
tc.client.Login("mjl@mox.example", password0)
|
|
|
|
ulist := func(name string, flags ...string) imapclient.UntaggedList {
|
|
if len(flags) == 0 {
|
|
flags = nil
|
|
}
|
|
return imapclient.UntaggedList{Flags: flags, Separator: '/', Mailbox: name}
|
|
}
|
|
|
|
tc.last(tc.client.List("INBOX"))
|
|
tc.xuntagged(ulist("Inbox"))
|
|
|
|
tc.last(tc.client.List("Inbox"))
|
|
tc.xuntagged(ulist("Inbox"))
|
|
|
|
tc.last(tc.client.List("expungebox"))
|
|
tc.xuntagged()
|
|
|
|
tc.last(tc.client.List("%"))
|
|
tc.xuntagged(ulist("Archive", `\Archive`), ulist("Drafts", `\Drafts`), ulist("Inbox"), ulist("Junk", `\Junk`), ulist("Sent", `\Sent`), ulist("Trash", `\Trash`))
|
|
|
|
tc.last(tc.client.List("*"))
|
|
tc.xuntagged(ulist("Archive", `\Archive`), ulist("Drafts", `\Drafts`), ulist("Inbox"), ulist("Junk", `\Junk`), ulist("Sent", `\Sent`), ulist("Trash", `\Trash`))
|
|
|
|
tc.last(tc.client.List("A*"))
|
|
tc.xuntagged(ulist("Archive", `\Archive`))
|
|
|
|
tc.client.Create("Inbox/todo", nil)
|
|
|
|
tc.last(tc.client.List("Inbox*"))
|
|
tc.xuntagged(ulist("Inbox"), ulist("Inbox/todo"))
|
|
|
|
tc.last(tc.client.List("Inbox/%"))
|
|
tc.xuntagged(ulist("Inbox/todo"))
|
|
|
|
tc.last(tc.client.List("Inbox/*"))
|
|
tc.xuntagged(ulist("Inbox/todo"))
|
|
|
|
// Leading full INBOX is turned into Inbox, so mailbox matches.
|
|
tc.last(tc.client.List("INBOX/*"))
|
|
tc.xuntagged(ulist("Inbox/todo"))
|
|
|
|
// No match because we are only touching various casings of the full "INBOX".
|
|
tc.last(tc.client.List("INBO*"))
|
|
tc.xuntagged()
|
|
}
|
|
|
|
func TestListExtended(t *testing.T) {
|
|
defer mockUIDValidity()()
|
|
|
|
tc := start(t)
|
|
defer tc.close()
|
|
|
|
tc.client.Login("mjl@mox.example", password0)
|
|
|
|
ulist := func(name string, flags ...string) imapclient.UntaggedList {
|
|
if len(flags) == 0 {
|
|
flags = nil
|
|
}
|
|
return imapclient.UntaggedList{Flags: flags, Separator: '/', Mailbox: name}
|
|
}
|
|
|
|
uidvals := map[string]uint32{}
|
|
use := store.DefaultInitialMailboxes.SpecialUse
|
|
for _, name := range []string{"Inbox", use.Archive, use.Draft, use.Junk, use.Sent, use.Trash} {
|
|
uidvals[name] = 1
|
|
}
|
|
for _, name := range store.DefaultInitialMailboxes.Regular {
|
|
uidvals[name] = 1
|
|
}
|
|
var uidvalnext uint32 = 3
|
|
uidval := func(name string) uint32 {
|
|
v, ok := uidvals[name]
|
|
if !ok {
|
|
v = uidvalnext
|
|
uidvals[name] = v
|
|
uidvalnext++
|
|
}
|
|
return v
|
|
}
|
|
|
|
ustatus := func(name string) imapclient.UntaggedStatus {
|
|
attrs := map[imapclient.StatusAttr]int64{
|
|
imapclient.StatusMessages: 0,
|
|
imapclient.StatusUIDNext: 1,
|
|
imapclient.StatusUIDValidity: int64(uidval(name)),
|
|
imapclient.StatusUnseen: 0,
|
|
imapclient.StatusDeleted: 0,
|
|
imapclient.StatusSize: 0,
|
|
imapclient.StatusRecent: 0,
|
|
imapclient.StatusAppendLimit: 0,
|
|
}
|
|
return imapclient.UntaggedStatus{Mailbox: name, Attrs: attrs}
|
|
}
|
|
|
|
const (
|
|
Fsubscribed = `\Subscribed`
|
|
Fhaschildren = `\HasChildren`
|
|
Fhasnochildren = `\HasNoChildren`
|
|
Fnonexistent = `\NonExistent`
|
|
Farchive = `\Archive`
|
|
Fdraft = `\Drafts`
|
|
Fjunk = `\Junk`
|
|
Fsent = `\Sent`
|
|
Ftrash = `\Trash`
|
|
)
|
|
|
|
// untaggedlist with flags subscribed and hasnochildren
|
|
xlist := func(name string, flags ...string) imapclient.UntaggedList {
|
|
flags = append([]string{Fhasnochildren, Fsubscribed}, flags...)
|
|
return ulist(name, flags...)
|
|
}
|
|
|
|
xchildlist := func(name string, flags ...string) imapclient.UntaggedList {
|
|
u := ulist(name, flags...)
|
|
comp := imapclient.TaggedExtComp{String: "SUBSCRIBED"}
|
|
u.Extended = []imapclient.MboxListExtendedItem{{Tag: "CHILDINFO", Val: imapclient.TaggedExtVal{Comp: &comp}}}
|
|
return u
|
|
}
|
|
|
|
tc.last(tc.client.ListFull(false, "INBOX"))
|
|
tc.xuntagged(xlist("Inbox"), ustatus("Inbox"))
|
|
|
|
tc.last(tc.client.ListFull(false, "Inbox"))
|
|
tc.xuntagged(xlist("Inbox"), ustatus("Inbox"))
|
|
|
|
tc.last(tc.client.ListFull(false, "%"))
|
|
tc.xuntagged(xlist("Archive", Farchive), ustatus("Archive"), xlist("Drafts", Fdraft), ustatus("Drafts"), xlist("Inbox"), ustatus("Inbox"), xlist("Junk", Fjunk), ustatus("Junk"), xlist("Sent", Fsent), ustatus("Sent"), xlist("Trash", Ftrash), ustatus("Trash"))
|
|
|
|
tc.last(tc.client.ListFull(false, "*"))
|
|
tc.xuntagged(xlist("Archive", Farchive), ustatus("Archive"), xlist("Drafts", Fdraft), ustatus("Drafts"), xlist("Inbox"), ustatus("Inbox"), xlist("Junk", Fjunk), ustatus("Junk"), xlist("Sent", Fsent), ustatus("Sent"), xlist("Trash", Ftrash), ustatus("Trash"))
|
|
|
|
tc.last(tc.client.ListFull(false, "A*"))
|
|
tc.xuntagged(xlist("Archive", Farchive), ustatus("Archive"))
|
|
|
|
tc.last(tc.client.ListFull(false, "A*", "Junk"))
|
|
tc.xuntagged(xlist("Archive", Farchive), ustatus("Archive"), xlist("Junk", Fjunk), ustatus("Junk"))
|
|
|
|
tc.client.Create("Inbox/todo", nil)
|
|
|
|
tc.last(tc.client.ListFull(false, "Inbox*"))
|
|
tc.xuntagged(ulist("Inbox", Fhaschildren, Fsubscribed), ustatus("Inbox"), xlist("Inbox/todo"), ustatus("Inbox/todo"))
|
|
|
|
tc.last(tc.client.ListFull(false, "Inbox/%"))
|
|
tc.xuntagged(xlist("Inbox/todo"), ustatus("Inbox/todo"))
|
|
|
|
tc.last(tc.client.ListFull(false, "Inbox/*"))
|
|
tc.xuntagged(xlist("Inbox/todo"), ustatus("Inbox/todo"))
|
|
|
|
// Leading full INBOX is turned into Inbox, so mailbox matches.
|
|
tc.last(tc.client.ListFull(false, "INBOX/*"))
|
|
tc.xuntagged(xlist("Inbox/todo"), ustatus("Inbox/todo"))
|
|
|
|
// No match because we are only touching various casings of the full "INBOX".
|
|
tc.last(tc.client.ListFull(false, "INBO*"))
|
|
tc.xuntagged()
|
|
|
|
tc.last(tc.client.ListFull(true, "Inbox"))
|
|
tc.xuntagged(xchildlist("Inbox", Fsubscribed, Fhaschildren), ustatus("Inbox"))
|
|
|
|
tc.client.Unsubscribe("Inbox")
|
|
tc.last(tc.client.ListFull(true, "Inbox"))
|
|
tc.xuntagged(xchildlist("Inbox", Fhaschildren), ustatus("Inbox"))
|
|
|
|
tc.client.Delete("Inbox/todo") // Still subscribed.
|
|
tc.last(tc.client.ListFull(true, "Inbox"))
|
|
tc.xuntagged(xchildlist("Inbox", Fhasnochildren), ustatus("Inbox"))
|
|
|
|
// Simple extended list without RETURN options.
|
|
tc.transactf("ok", `list "" ("inbox")`)
|
|
tc.xuntagged(ulist("Inbox"))
|
|
|
|
tc.transactf("ok", `list () "" ("inbox") return ()`)
|
|
tc.xuntagged(ulist("Inbox"))
|
|
|
|
tc.transactf("ok", `list "" ("inbox") return ()`)
|
|
tc.xuntagged(ulist("Inbox"))
|
|
|
|
tc.transactf("ok", `list () "" ("inbox")`)
|
|
tc.xuntagged(ulist("Inbox"))
|
|
|
|
tc.transactf("ok", `list (remote) "" ("inbox")`)
|
|
tc.xuntagged(ulist("Inbox"))
|
|
|
|
tc.transactf("ok", `list (remote) "" "/inbox"`)
|
|
tc.xuntagged()
|
|
|
|
tc.transactf("ok", `list (remote) "/inbox" ""`)
|
|
tc.xuntagged()
|
|
|
|
tc.transactf("ok", `list (remote) "inbox" ""`)
|
|
tc.xuntagged()
|
|
|
|
tc.transactf("ok", `list (remote) "inbox" "a"`)
|
|
tc.xuntagged()
|
|
|
|
tc.client.Create("inbox/a", nil)
|
|
tc.transactf("ok", `list (remote) "inbox" "a"`)
|
|
tc.xuntagged(ulist("Inbox/a"))
|
|
|
|
tc.client.Subscribe("x")
|
|
tc.transactf("ok", `list (subscribed) "" x return (subscribed)`)
|
|
tc.xuntagged(imapclient.UntaggedList{Flags: []string{`\Subscribed`, `\NonExistent`}, Separator: '/', Mailbox: "x"})
|
|
|
|
tc.transactf("bad", `list (recursivematch) "" "*"`) // Cannot have recursivematch without a base selection option like subscribed.
|
|
tc.transactf("bad", `list (recursivematch remote) "" "*"`) // "remote" is not a base selection option.
|
|
tc.transactf("bad", `list (unknown) "" "*"`) // Unknown selection options must result in BAD.
|
|
tc.transactf("bad", `list () "" "*" return (unknown)`) // Unknown return options must result in BAD.
|
|
|
|
// Return metadata.
|
|
tc.transactf("ok", `setmetadata inbox (/private/comment "y")`)
|
|
tc.transactf("ok", `list () "" ("inbox") return (metadata (/private/comment /shared/comment))`)
|
|
tc.xuntagged(
|
|
ulist("Inbox"),
|
|
imapclient.UntaggedMetadataAnnotations{
|
|
Mailbox: "Inbox",
|
|
Annotations: []imapclient.Annotation{
|
|
{Key: "/private/comment", IsString: true, Value: []byte("y")},
|
|
{Key: "/shared/comment"},
|
|
},
|
|
},
|
|
)
|
|
|
|
tc.transactf("bad", `list () "" ("inbox") return (metadata ())`) // Metadata list must be non-empty.
|
|
tc.transactf("bad", `list () "" ("inbox") return (metadata (/shared/comment "/private/comment" ))`) // Extra space.
|
|
}
|