add expiration tests

This commit is contained in:
Oswald Buddenhagen 2005-12-26 16:02:08 +00:00
parent ad5f5aa2b2
commit 716ff82540

View File

@ -157,6 +157,65 @@ my @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 "..";