commit db66c4d74662bc5562436dd6e08777ecf3c94276
parent 3040625a62396f0e68f7d8270cc0f85eaeaa39aa
Author: Oswald Buddenhagen <ossi@users.sf.net>
Date: Sun, 20 Feb 2022 13:01:09 +0100
autotest: remove show()
this somewhat crude way of generating test data will be obsolete soon.
Diffstat:
M | src/run-tests.pl | | | 69 | --------------------------------------------------------------------- |
1 file changed, 0 insertions(+), 69 deletions(-)
diff --git a/src/run-tests.pl b/src/run-tests.pl
@@ -37,7 +37,6 @@ if (!-d "tmp") {
}
chdir "tmp" or die "Cannot enter temp direcory.\n";
-sub show($$$);
sub test($$$$);
################################################################################
@@ -61,7 +60,6 @@ my @x01 = (
);
my @O01 = ("", "", "");
-#show("01", "01", "01");
my @X01 = (
[ 10,
A, 1, "F", B, 2, "F", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "FT", G, 7, "FT", I, 9, "", J, 10, "" ],
@@ -73,7 +71,6 @@ my @X01 = (
test("full", \@x01, \@X01, \@O01);
my @O02 = ("", "", "Expunge Both\n");
-#show("01", "02", "02");
my @X02 = (
[ 10,
A, 1, "F", B, 2, "F", C, 3, "FS", D, 4, "", I, 9, "", J, 10, "" ],
@@ -85,7 +82,6 @@ my @X02 = (
test("full + expunge both", \@x01, \@X02, \@O02);
my @O03 = ("", "", "Expunge Near\n");
-#show("01", "03", "03");
my @X03 = (
[ 10,
A, 1, "F", B, 2, "F", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "FT", G, 7, "FT", I, 9, "", J, 10, "" ],
@@ -97,7 +93,6 @@ my @X03 = (
test("full + expunge near side", \@x01, \@X03, \@O03);
my @O04 = ("", "", "Sync Pull\n");
-#show("01", "04", "04");
my @X04 = (
[ 9,
A, 1, "F", B, 2, "", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "F", G, 7, "FT", I, 9, "" ],
@@ -109,7 +104,6 @@ my @X04 = (
test("pull", \@x01, \@X04, \@O04);
my @O05 = ("", "", "Sync Flags\n");
-#show("01", "05", "05");
my @X05 = (
[ 9,
A, 1, "F", B, 2, "F", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "F", G, 7, "FT", I, 9, "" ],
@@ -121,7 +115,6 @@ my @X05 = (
test("flags", \@x01, \@X05, \@O05);
my @O06 = ("", "", "Sync Delete\n");
-#show("01", "06", "06");
my @X06 = (
[ 9,
A, 1, "F", B, 2, "", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "FT", G, 7, "FT", I, 9, "" ],
@@ -133,7 +126,6 @@ my @X06 = (
test("deletions", \@x01, \@X06, \@O06);
my @O07 = ("", "", "Sync New\n");
-#show("01", "07", "07");
my @X07 = (
[ 10,
A, 1, "F", B, 2, "", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "F", G, 7, "FT", I, 9, "", J, 10, "" ],
@@ -145,7 +137,6 @@ my @X07 = (
test("new", \@x01, \@X07, \@O07);
my @O08 = ("", "", "Sync PushFlags PullDelete\n");
-#show("01", "08", "08");
my @X08 = (
[ 9,
A, 1, "F", B, 2, "F", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "F", G, 7, "FT", I, 9, "" ],
@@ -168,7 +159,6 @@ my @x10 = (
);
my @O11 = ("MaxSize 1k\n", "MaxSize 1k\n", "Expunge Near");
-#show("10", "11", "11");
my @X11 = (
[ 3,
A, 1, "", B, 2, "*", C, 3, "?" ],
@@ -188,7 +178,6 @@ my @x22 = (
3, 1, "<", 1, 2, "", 2, 3, ">" ],
);
-#show("22", "22", "11");
my @X22 = (
[ 4,
A, 1, "", B, 2, "*", C, 3, "T?", C, 4, "F*" ],
@@ -249,7 +238,6 @@ my @x30 = (
);
my @O31 = ("", "", "MaxMessages 3\n");
-#show("30", "31", "31");
my @X31 = (
[ 6,
A, 1, "F", B, 2, "", C, 3, "S", D, 4, "", E, 5, "S", F, 6, "" ],
@@ -261,7 +249,6 @@ my @X31 = (
test("max messages", \@x30, \@X31, \@O31);
my @O32 = ("", "", "MaxMessages 3\nExpireUnread yes\n");
-#show("30", "32", "32");
my @X32 = (
[ 6,
A, 1, "F", B, 2, "", C, 3, "S", D, 4, "", E, 5, "S", F, 6, "" ],
@@ -282,7 +269,6 @@ my @x50 = (
);
my @O51 = ("", "", "MaxMessages 3\nExpunge Both\n");
-#show("50", "51", "51");
my @X51 = (
[ 6,
A, 1, "S", B, 2, "FS", C, 3, "S", D, 4, "", E, 5, "", F, 6, "" ],
@@ -544,61 +530,6 @@ sub readchan(;$)
};
}
-# $boxname
-# Output:
-# [ maxuid,
-# serial, uid, "flags", ... ],
-sub showbox($)
-{
- my ($bn) = @_;
-
- printbox(readbox($bn));
-}
-
-# $filename
-# Output:
-# [ maxuid[F], maxxfuid, maxuid[N],
-# uid[F], uid[N], "flags", ... ],
-sub showstate($)
-{
- my ($fn) = @_;
-
- my $rss = readstate($fn);
- printstate($rss) if ($rss);
-}
-
-# $filename
-sub showchan($)
-{
- my ($fn) = @_;
-
- showbox("far");
- showbox("near");
- showstate($fn);
-}
-
-# $source_state_name, $target_state_name, $configs_name
-sub show($$$)
-{
- my ($sx, $tx, $sfxn) = @_;
- my ($sp, $sfx);
- eval "\$sp = \\\@x$sx";
- eval "\$sfx = \\\@O$sfxn";
- mkchan($sp);
- print "my \@x$sx = (\n";
- showchan("near/.mbsyncstate");
- print ");\n";
- writecfg($sfx);
- runsync(0, "", "");
- killcfg();
- print "my \@X$tx = (\n";
- showchan("near/.mbsyncstate");
- print ");\n";
- print "test(\"\", \\\@x$sx, \\\@X$tx, \\\@O$sfxn);\n\n";
- rmtree "near";
- rmtree "far";
-}
-
# $box_name, \%box_state
sub mkbox($$)
{