add expiration tests
This commit is contained in:
parent
ad5f5aa2b2
commit
716ff82540
|
@ -157,6 +157,65 @@ my @X22 = (
|
||||||
);
|
);
|
||||||
test(\@x20, \@X22);
|
test(\@x20, \@X22);
|
||||||
|
|
||||||
|
# expiration tests
|
||||||
|
|
||||||
|
my @x30 = (
|
||||||
|
[ 0,
|
||||||
|
1, 0, "F", 2, 0, "", 3, 0, "", 4, 0, "", 5, 0, "" ],
|
||||||
|
[ 0,
|
||||||
|
],
|
||||||
|
[ 0, 0, 0,
|
||||||
|
],
|
||||||
|
);
|
||||||
|
|
||||||
|
#show("30", "31", "", "", "MaxMessages 3\n");
|
||||||
|
my @X31 = (
|
||||||
|
[ "", "", "MaxMessages 3\n" ],
|
||||||
|
[ 5,
|
||||||
|
1, 1, "F", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
[ 5,
|
||||||
|
1, 1, "F", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
[ 5, 0, 0,
|
||||||
|
1, 1, "F", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
);
|
||||||
|
test(\@x30, \@X31);
|
||||||
|
|
||||||
|
my @x40 = @X31[1,2,3];
|
||||||
|
|
||||||
|
#show("40", "41", "", "", "MaxMessages 3\nExpunge Both\n");
|
||||||
|
my @X41 = (
|
||||||
|
[ "", "", "MaxMessages 3\nExpunge Both\n" ],
|
||||||
|
[ 5,
|
||||||
|
1, 1, "F", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
[ 5,
|
||||||
|
1, 1, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
[ 5, 2, 0,
|
||||||
|
1, 1, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
);
|
||||||
|
test(\@x40, \@X41);
|
||||||
|
|
||||||
|
my @x50 = (
|
||||||
|
[ 5,
|
||||||
|
1, 1, "F", 2, 2, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
[ 5,
|
||||||
|
1, 1, " ", 2, 2, "T", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
[ 5, 2, 0,
|
||||||
|
1, 1, "F", 2, 2, "X", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
);
|
||||||
|
|
||||||
|
#show("50", "51", "", "", "MaxMessages 3\nExpunge Both\n");
|
||||||
|
my @X51 = (
|
||||||
|
[ "", "", "MaxMessages 3\nExpunge Both\n" ],
|
||||||
|
[ 5,
|
||||||
|
1, 1, "", 2, 2, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
[ 5,
|
||||||
|
2, 2, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
[ 5, 2, 0,
|
||||||
|
2, 2, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
|
);
|
||||||
|
test(\@x50, \@X51);
|
||||||
|
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
|
|
||||||
chdir "..";
|
chdir "..";
|
||||||
|
|
Loading…
Reference in New Issue
Block a user