2023-01-30 16:27:06 +03:00
|
|
|
package imapserver
|
|
|
|
|
|
|
|
import (
|
2023-06-24 01:24:43 +03:00
|
|
|
"strings"
|
2023-01-30 16:27:06 +03:00
|
|
|
"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}})
|
|
|
|
|
2023-06-24 01:24:43 +03:00
|
|
|
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.
|
2023-01-30 16:27:06 +03:00
|
|
|
|
|
|
|
tc.client.Unselect()
|
2023-06-24 01:24:43 +03:00
|
|
|
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`, " ")
|
2023-07-24 22:21:05 +03:00
|
|
|
tc.xuntaggedOpt(false, imapclient.UntaggedFlags(flags))
|
2023-06-24 01:24:43 +03:00
|
|
|
|
2023-01-30 16:27:06 +03:00
|
|
|
tc.transactf("no", `store 1 flags ()`) // No permission to set flags.
|
|
|
|
}
|