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
|
require "vnd.dovecot.testsuite";
require "imap4flags";
require "relational";
require "variables";
require "comparator-i;ascii-numeric";
/*
* Generic tests
*/
test "Ignoring \"\"" {
setflag "";
if hasflag "" {
test_fail "hasflag fails to ignore empty string";
}
}
/*
* Variables
*/
test "Multiple variables" {
setflag "A" "Aflag";
setflag "B" "Bflag";
setflag "C" "Cflag";
if not hasflag ["a", "b", "c"] ["Bflag"] {
test_fail "hasflag failed to match multiple flags variables";
}
}
/*
* RFC examples
*/
test "RFC hasflag example - :is" {
setflag "A B";
if not hasflag ["b","A"] {
test_fail "list representation did not match";
}
if not hasflag :is "b A" {
test_fail "string representation did not match";
}
}
test "RFC hasflag example - :contains variable" {
set "MyVar" "NonJunk Junk gnus-forward $Forwarded NotJunk JunkRecorded $Junk $NotJunk";
if not hasflag :contains "MyVar" "Junk" {
test_fail "failed true example 1";
}
if not hasflag :contains "MyVar" "forward" {
test_fail "failed true example 2";
}
if not hasflag :contains "MyVar" ["label", "forward"] {
test_fail "failed true example 3";
}
if not hasflag :contains "MyVar" ["junk", "forward"] {
test_fail "failed true example 4";
}
if not hasflag :contains "MyVar" "junk forward" {
test_fail "failed true example 4 (rewrite 1)";
}
if not hasflag :contains "MyVar" "forward junk" {
test_fail "failed true example 4 (rewrite 2)";
}
if hasflag :contains "MyVar" "label" {
test_fail "failed false example 1";
}
if hasflag :contains "MyVar" ["label1", "label2"] {
test_fail "failed false example 2";
}
}
test "RFC hasflag example - :count variable" {
set "MyFlags" "A B";
if not hasflag :count "ge" :comparator "i;ascii-numeric" "MyFlags" "2" {
test_fail "failed count \"ge\" comparison";
}
}
|
