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 "..";