autotest: remove show()
this somewhat crude way of generating test data will be obsolete soon.
This commit is contained in:
Oswald Buddenhagen
parent
3040625a62
commit
db66c4d746
|
|
@ -37,7 +37,6 @@ if (!-d "tmp") {
|
||||||
}
|
}
|
||||||
chdir "tmp" or die "Cannot enter temp direcory.\n";
|
chdir "tmp" or die "Cannot enter temp direcory.\n";
|
||||||
|
|
||||||
sub show($$$);
|
|
||||||
sub test($$$$);
|
sub test($$$$);
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
|
|
@ -61,7 +60,6 @@ my @x01 = (
|
||||||
);
|
);
|
||||||
|
|
||||||
my @O01 = ("", "", "");
|
my @O01 = ("", "", "");
|
||||||
#show("01", "01", "01");
|
|
||||||
my @X01 = (
|
my @X01 = (
|
||||||
[ 10,
|
[ 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, "" ],
|
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);
|
test("full", \@x01, \@X01, \@O01);
|
||||||
|
|
||||||
my @O02 = ("", "", "Expunge Both\n");
|
my @O02 = ("", "", "Expunge Both\n");
|
||||||
#show("01", "02", "02");
|
|
||||||
my @X02 = (
|
my @X02 = (
|
||||||
[ 10,
|
[ 10,
|
||||||
A, 1, "F", B, 2, "F", C, 3, "FS", D, 4, "", I, 9, "", J, 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);
|
test("full + expunge both", \@x01, \@X02, \@O02);
|
||||||
|
|
||||||
my @O03 = ("", "", "Expunge Near\n");
|
my @O03 = ("", "", "Expunge Near\n");
|
||||||
#show("01", "03", "03");
|
|
||||||
my @X03 = (
|
my @X03 = (
|
||||||
[ 10,
|
[ 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, "" ],
|
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);
|
test("full + expunge near side", \@x01, \@X03, \@O03);
|
||||||
|
|
||||||
my @O04 = ("", "", "Sync Pull\n");
|
my @O04 = ("", "", "Sync Pull\n");
|
||||||
#show("01", "04", "04");
|
|
||||||
my @X04 = (
|
my @X04 = (
|
||||||
[ 9,
|
[ 9,
|
||||||
A, 1, "F", B, 2, "", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "F", G, 7, "FT", I, 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);
|
test("pull", \@x01, \@X04, \@O04);
|
||||||
|
|
||||||
my @O05 = ("", "", "Sync Flags\n");
|
my @O05 = ("", "", "Sync Flags\n");
|
||||||
#show("01", "05", "05");
|
|
||||||
my @X05 = (
|
my @X05 = (
|
||||||
[ 9,
|
[ 9,
|
||||||
A, 1, "F", B, 2, "F", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "F", G, 7, "FT", I, 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);
|
test("flags", \@x01, \@X05, \@O05);
|
||||||
|
|
||||||
my @O06 = ("", "", "Sync Delete\n");
|
my @O06 = ("", "", "Sync Delete\n");
|
||||||
#show("01", "06", "06");
|
|
||||||
my @X06 = (
|
my @X06 = (
|
||||||
[ 9,
|
[ 9,
|
||||||
A, 1, "F", B, 2, "", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "FT", G, 7, "FT", I, 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);
|
test("deletions", \@x01, \@X06, \@O06);
|
||||||
|
|
||||||
my @O07 = ("", "", "Sync New\n");
|
my @O07 = ("", "", "Sync New\n");
|
||||||
#show("01", "07", "07");
|
|
||||||
my @X07 = (
|
my @X07 = (
|
||||||
[ 10,
|
[ 10,
|
||||||
A, 1, "F", B, 2, "", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "F", G, 7, "FT", I, 9, "", J, 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);
|
test("new", \@x01, \@X07, \@O07);
|
||||||
|
|
||||||
my @O08 = ("", "", "Sync PushFlags PullDelete\n");
|
my @O08 = ("", "", "Sync PushFlags PullDelete\n");
|
||||||
#show("01", "08", "08");
|
|
||||||
my @X08 = (
|
my @X08 = (
|
||||||
[ 9,
|
[ 9,
|
||||||
A, 1, "F", B, 2, "F", C, 3, "FS", D, 4, "", E, 5, "T", F, 6, "F", G, 7, "FT", I, 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");
|
my @O11 = ("MaxSize 1k\n", "MaxSize 1k\n", "Expunge Near");
|
||||||
#show("10", "11", "11");
|
|
||||||
my @X11 = (
|
my @X11 = (
|
||||||
[ 3,
|
[ 3,
|
||||||
A, 1, "", B, 2, "*", C, 3, "?" ],
|
A, 1, "", B, 2, "*", C, 3, "?" ],
|
||||||
|
|
@ -188,7 +178,6 @@ my @x22 = (
|
||||||
3, 1, "<", 1, 2, "", 2, 3, ">" ],
|
3, 1, "<", 1, 2, "", 2, 3, ">" ],
|
||||||
);
|
);
|
||||||
|
|
||||||
#show("22", "22", "11");
|
|
||||||
my @X22 = (
|
my @X22 = (
|
||||||
[ 4,
|
[ 4,
|
||||||
A, 1, "", B, 2, "*", C, 3, "T?", C, 4, "F*" ],
|
A, 1, "", B, 2, "*", C, 3, "T?", C, 4, "F*" ],
|
||||||
|
|
@ -249,7 +238,6 @@ my @x30 = (
|
||||||
);
|
);
|
||||||
|
|
||||||
my @O31 = ("", "", "MaxMessages 3\n");
|
my @O31 = ("", "", "MaxMessages 3\n");
|
||||||
#show("30", "31", "31");
|
|
||||||
my @X31 = (
|
my @X31 = (
|
||||||
[ 6,
|
[ 6,
|
||||||
A, 1, "F", B, 2, "", C, 3, "S", D, 4, "", E, 5, "S", F, 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);
|
test("max messages", \@x30, \@X31, \@O31);
|
||||||
|
|
||||||
my @O32 = ("", "", "MaxMessages 3\nExpireUnread yes\n");
|
my @O32 = ("", "", "MaxMessages 3\nExpireUnread yes\n");
|
||||||
#show("30", "32", "32");
|
|
||||||
my @X32 = (
|
my @X32 = (
|
||||||
[ 6,
|
[ 6,
|
||||||
A, 1, "F", B, 2, "", C, 3, "S", D, 4, "", E, 5, "S", F, 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");
|
my @O51 = ("", "", "MaxMessages 3\nExpunge Both\n");
|
||||||
#show("50", "51", "51");
|
|
||||||
my @X51 = (
|
my @X51 = (
|
||||||
[ 6,
|
[ 6,
|
||||||
A, 1, "S", B, 2, "FS", C, 3, "S", D, 4, "", E, 5, "", F, 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
|
# $box_name, \%box_state
|
||||||
sub mkbox($$)
|
sub mkbox($$)
|
||||||
{
|
{
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user