18 |
|
|
19 |
imap4d_start |
imap4d_start |
20 |
imap4d_auth "user!passwd" "guessme" |
imap4d_auth "user!passwd" "guessme" |
|
|
|
|
proc get_uidvalidity {} { |
|
|
regsub "(\[0-9\]*)\[0-9\]" "[clock seconds]" "\\1\[0-9\]" val |
|
|
return $val |
|
|
} |
|
|
|
|
21 |
imap4d_test "EXAMINE INBOX"\ |
imap4d_test "EXAMINE INBOX"\ |
22 |
"95 EXISTS"\ |
"95 EXISTS"\ |
23 |
"95 RECENT"\ |
"95 RECENT"\ |
24 |
-re "OK \\\[UIDVALIDITY [get_uidvalidity]\\\] UID valididy status"\ |
-re "OK \\\[UIDVALIDITY [imap4d_uidvalidity]\\\] UID valididy status"\ |
25 |
"OK \[UIDNEXT 96\] Predicted next uid"\ |
"OK \[UIDNEXT 96\] Predicted next uid"\ |
26 |
"OK \[UNSEEN 1\] first unseen messsage"\ |
"OK \[UNSEEN 1\] first unseen messsage"\ |
27 |
"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\ |
"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\ |
28 |
"OK \[PERMANENTFLAGS ()\] No Permanent flags"\ |
"OK \[PERMANENTFLAGS ()\] No Permanent flags"\ |
29 |
"OK \[READ-ONLY\] EXAMINE Completed" |
"OK \[READ-ONLY\] EXAMINE Completed" |
30 |
|
|
|
set UIDVALIDITY [clock seconds] |
|
|
|
|
31 |
imap4d_test "SELECT INBOX"\ |
imap4d_test "SELECT INBOX"\ |
32 |
"95 EXISTS"\ |
"95 EXISTS"\ |
33 |
"95 RECENT"\ |
"95 RECENT"\ |
34 |
-re "OK \\\[UIDVALIDITY [get_uidvalidity]\\\] UID valididy status"\ |
-re "OK \\\[UIDVALIDITY [imap4d_uidvalidity]\\\] UID valididy status"\ |
35 |
"OK \[UIDNEXT 96\] Predicted next uid"\ |
"OK \[UIDNEXT 96\] Predicted next uid"\ |
36 |
"OK \[UNSEEN 1\] first unseen messsage "\ |
"OK \[UNSEEN 1\] first unseen messsage "\ |
37 |
"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\ |
"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\ |
39 |
"OK \[READ-WRITE\] SELECT Completed" |
"OK \[READ-WRITE\] SELECT Completed" |
40 |
|
|
41 |
imap4d_test "STATUS INBOX (MESSAGES RECENT UNSEEN UIDVALIDITY UIDNEXT)" \ |
imap4d_test "STATUS INBOX (MESSAGES RECENT UNSEEN UIDVALIDITY UIDNEXT)" \ |
42 |
-re "STATUS INBOX \\(MESSAGES 95 RECENT 95 UNSEEN 95 UIDVALIDITY [get_uidvalidity] UIDNEXT 96 \\)" \ |
-re "STATUS INBOX \\(MESSAGES 95 RECENT 95 UNSEEN 95 UIDVALIDITY [imap4d_uidvalidity] UIDNEXT 96 \\)" \ |
43 |
"OK" |
"OK" |
44 |
|
|
45 |
imap4d_test "STATUS mbox1 (MESSAGES RECENT UNSEEN UIDNEXT)" \ |
imap4d_test "STATUS mbox1 (MESSAGES RECENT UNSEEN UIDNEXT)" \ |
46 |
"STATUS mbox1 (MESSAGES 4 RECENT 4 UNSEEN 4 UIDNEXT 5 )" \ |
"STATUS mbox1 (MESSAGES 4 RECENT 4 UNSEEN 4 UIDNEXT 5 )" \ |
47 |
"OK" |
"OK" |
48 |
|
|
|
set U [clock seconds] |
|
49 |
imap4d_test "EXAMINE mbox1" \ |
imap4d_test "EXAMINE mbox1" \ |
50 |
"4 EXISTS"\ |
"4 EXISTS"\ |
51 |
"4 RECENT"\ |
"4 RECENT"\ |
52 |
-re "OK \\\[UIDVALIDITY [get_uidvalidity]\\\] UID valididy status"\ |
-re "OK \\\[UIDVALIDITY [imap4d_uidvalidity]\\\] UID valididy status"\ |
53 |
"OK \[UIDNEXT 5\] Predicted next uid"\ |
"OK \[UIDNEXT 5\] Predicted next uid"\ |
54 |
"OK \[UNSEEN 1\] first unseen messsage"\ |
"OK \[UNSEEN 1\] first unseen messsage"\ |
55 |
"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\ |
"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\ |