From 716ff825408cacb1aa31d73a104fdf20a9315825 Mon Sep 17 00:00:00 2001 From: Oswald Buddenhagen Date: Mon, 26 Dec 2005 16:02:08 +0000 Subject: [PATCH] add expiration tests --- src/run-tests.pl | 59 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) diff --git a/src/run-tests.pl b/src/run-tests.pl index 455caae..1bd458c 100755 --- a/src/run-tests.pl +++ b/src/run-tests.pl @@ -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 "..";