blob: c38d4d30770ea5bde3f6fc8a41375b8c9a336df7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
doveadm -u "local" mailbox create "foo.bar" "foo.bar.baz"
for m in "foo.bar" "foo.bar.baz" "INBOX"; do
sample_message | deliver -u "local" -- -m "$m"
done
interimap_init
check_mailbox_list
check_mailboxes_status "foo.bar" "foo.bar.baz" "INBOX"
sqlite3 "$XDG_DATA_HOME/interimap/remote.db" >"$TMPDIR/dump.sql" <<-EOF
.dump
EOF
step_start "nonexistent source (no-op)"
interimap --target="local,remote" --target="database" --delete "nonexistent" || error
check_mailbox_list
check_mailboxes_status "foo.bar" "foo.bar.baz" "INBOX"
sqlite3 "$XDG_DATA_HOME/interimap/remote.db" >"$TMPDIR/dump2.sql" <<-EOF
.dump
EOF
diff -u --label="a/dump.sql" --label="b/dump.sql" \
"$TMPDIR/dump.sql" "$TMPDIR/dump2.sql" || error "SQL dumps differ"
step_done
# foo.bar will become \NoSelect in local, per RFC 3501: "It is permitted
# to delete a name that has inferior hierarchical names and does not
# have the \Noselect mailbox name attribute. In this case, all messages
# in that mailbox are removed, and the name will acquire the \Noselect
# mailbox name attribute."
step_start "mailbox with inferiors"
sqlite3 "$XDG_DATA_HOME/interimap/remote.db" >"$TMPDIR/mailboxes.sql" <<-EOF
SELECT idx, mailbox FROM mailboxes
WHERE mailbox != x'$(printf "%s\\0%s" "foo" "bar" | xxd -ps)'
ORDER BY idx
EOF
interimap --target="local" --delete "foo.bar"
check_mailbox_list
check_mailboxes_status "foo.bar.baz" "INBOX"
sqlite3 "$XDG_DATA_HOME/interimap/remote.db" >"$TMPDIR/dump2.sql" <<-EOF
.dump
EOF
diff -u --label="a/dump.sql" --label="b/dump.sql" \
"$TMPDIR/dump.sql" "$TMPDIR/dump2.sql" || error "SQL dumps differ"
! doveadm -u "local" mailbox status uidvalidity "foo.bar" # gone
doveadm -u "remote" mailbox status uidvalidity "foo^bar"
# now delete from the remote server and the database
interimap --delete "foo.bar"
! doveadm -u "local" mailbox status uidvalidity "foo.bar"
! doveadm -u "remote" mailbox status uidvalidity "foo^bar"
sqlite3 "$XDG_DATA_HOME/interimap/remote.db" >"$TMPDIR/mailboxes2.sql" <<-EOF
SELECT idx, mailbox FROM mailboxes ORDER BY idx
EOF
diff -u --label="a/mailboxes.sql" --label="b/mailboxes.sql" \
"$TMPDIR/mailboxes.sql" "$TMPDIR/mailboxes2.sql" || error "SQL dumps differ"
check_mailbox_list
check_mailboxes_status "foo.bar.baz" "INBOX"
step_done
step_start "INBOX (fail)"
! interimap --delete "InBoX" || error "deleted INBOX"
grep -Fx "ERROR: INBOX can't be deleted" <"$STDERR" || error
check_mailbox_list
check_mailboxes_status "foo.bar.baz" "INBOX"
step_done
step_start "\\Noinferiors mailbox"
interimap --delete "foo.bar.baz"
! doveadm -u "local" mailbox status uidvalidity "foo.bar.baz"
! doveadm -u "remote" mailbox status uidvalidity "foo^bar^baz"
sqlite3 "$XDG_DATA_HOME/interimap/remote.db" >"$TMPDIR/count" <<-EOF
SELECT COUNT(*) FROM mailboxes
EOF
[ "$(< "$TMPDIR/count" )" -eq 1 ] || error "Not only INBOX left?"
check_mailbox_list
check_mailboxes_status "INBOX"
step_done
# vim: set filetype=sh :
|