be a bit more verbose
This commit is contained in:
parent
394aca03a2
commit
0a684bd933
|
@ -23,7 +23,7 @@ use File::Path;
|
||||||
chdir "tmp" or die "Cannot enter temp direcory.\n";
|
chdir "tmp" or die "Cannot enter temp direcory.\n";
|
||||||
|
|
||||||
sub show($$@);
|
sub show($$@);
|
||||||
sub test($$);
|
sub test($$$);
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
|
|
||||||
|
@ -47,7 +47,7 @@ my @X01 = (
|
||||||
[ 9, 0, 9,
|
[ 9, 0, 9,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 0, "", 7, 7, "FT", 0, 8, "", 10, 9, "", 9, 10, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 0, "", 7, 7, "FT", 0, 8, "", 10, 9, "", 9, 10, "" ],
|
||||||
);
|
);
|
||||||
test(\@x01, \@X01);
|
test("full", \@x01, \@X01);
|
||||||
|
|
||||||
#show("01", "02", "", "", "Expunge Both\n");
|
#show("01", "02", "", "", "Expunge Both\n");
|
||||||
my @X02 = (
|
my @X02 = (
|
||||||
|
@ -59,7 +59,7 @@ my @X02 = (
|
||||||
[ 9, 0, 9,
|
[ 9, 0, 9,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 10, 9, "", 9, 10, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 10, 9, "", 9, 10, "" ],
|
||||||
);
|
);
|
||||||
test(\@x01, \@X02);
|
test("full + expunge both", \@x01, \@X02);
|
||||||
|
|
||||||
#show("01", "03", "", "", "Expunge Slave\n");
|
#show("01", "03", "", "", "Expunge Slave\n");
|
||||||
my @X03 = (
|
my @X03 = (
|
||||||
|
@ -71,7 +71,7 @@ my @X03 = (
|
||||||
[ 9, 0, 9,
|
[ 9, 0, 9,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 0, "T", 6, 0, "", 7, 0, "T", 10, 9, "", 9, 10, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 0, "T", 6, 0, "", 7, 0, "T", 10, 9, "", 9, 10, "" ],
|
||||||
);
|
);
|
||||||
test(\@x01, \@X03);
|
test("full + expunge slave", \@x01, \@X03);
|
||||||
|
|
||||||
#show("01", "04", "", "", "Sync Pull\n");
|
#show("01", "04", "", "", "Sync Pull\n");
|
||||||
my @X04 = (
|
my @X04 = (
|
||||||
|
@ -83,7 +83,7 @@ my @X04 = (
|
||||||
[ 9, 0, 0,
|
[ 9, 0, 0,
|
||||||
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "", 7, 7, "FT", 0, 8, "", 9, 9, "" ],
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "", 7, 7, "FT", 0, 8, "", 9, 9, "" ],
|
||||||
);
|
);
|
||||||
test(\@x01, \@X04);
|
test("pull", \@x01, \@X04);
|
||||||
|
|
||||||
#show("01", "05", "", "", "Sync Flags\n");
|
#show("01", "05", "", "", "Sync Flags\n");
|
||||||
my @X05 = (
|
my @X05 = (
|
||||||
|
@ -95,7 +95,7 @@ my @X05 = (
|
||||||
[ 8, 0, 0,
|
[ 8, 0, 0,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "", 7, 7, "FT", 8, 8, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "", 7, 7, "FT", 8, 8, "" ],
|
||||||
);
|
);
|
||||||
test(\@x01, \@X05);
|
test("flags", \@x01, \@X05);
|
||||||
|
|
||||||
#show("01", "06", "", "", "Sync Delete\n");
|
#show("01", "06", "", "", "Sync Delete\n");
|
||||||
my @X06 = (
|
my @X06 = (
|
||||||
|
@ -107,7 +107,7 @@ my @X06 = (
|
||||||
[ 8, 0, 0,
|
[ 8, 0, 0,
|
||||||
1, 1, "", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "", 6, 0, "", 7, 7, "", 0, 8, "" ],
|
1, 1, "", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "", 6, 0, "", 7, 7, "", 0, 8, "" ],
|
||||||
);
|
);
|
||||||
test(\@x01, \@X06);
|
test("deletions", \@x01, \@X06);
|
||||||
|
|
||||||
#show("01", "07", "", "", "Sync New\n");
|
#show("01", "07", "", "", "Sync New\n");
|
||||||
my @X07 = (
|
my @X07 = (
|
||||||
|
@ -119,7 +119,7 @@ my @X07 = (
|
||||||
[ 9, 0, 9,
|
[ 9, 0, 9,
|
||||||
1, 1, "", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "", 6, 6, "", 7, 7, "", 8, 8, "", 10, 9, "", 9, 10, "" ],
|
1, 1, "", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "", 6, 6, "", 7, 7, "", 8, 8, "", 10, 9, "", 9, 10, "" ],
|
||||||
);
|
);
|
||||||
test(\@x01, \@X07);
|
test("new", \@x01, \@X07);
|
||||||
|
|
||||||
#show("01", "08", "", "", "Sync PushFlags PullDelete\n");
|
#show("01", "08", "", "", "Sync PushFlags PullDelete\n");
|
||||||
my @X08 = (
|
my @X08 = (
|
||||||
|
@ -131,7 +131,7 @@ my @X08 = (
|
||||||
[ 8, 0, 0,
|
[ 8, 0, 0,
|
||||||
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 6, 6, "", 7, 7, "", 0, 8, "" ],
|
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 6, 6, "", 7, 7, "", 0, 8, "" ],
|
||||||
);
|
);
|
||||||
test(\@x01, \@X08);
|
test("push flags + pull deletions", \@x01, \@X08);
|
||||||
|
|
||||||
# size restriction tests
|
# size restriction tests
|
||||||
|
|
||||||
|
@ -154,12 +154,12 @@ my @X11 = (
|
||||||
[ 2, 0, 1,
|
[ 2, 0, 1,
|
||||||
-1, 1, "", 1, 2, "", 2, -1, "" ],
|
-1, 1, "", 1, 2, "", 2, -1, "" ],
|
||||||
);
|
);
|
||||||
test(\@x10, \@X11);
|
test("max size", \@x10, \@X11);
|
||||||
|
|
||||||
my @x20 = @X11[1,2,3];
|
my @x20 = @X11[1,2,3];
|
||||||
|
|
||||||
#show("20", "11", "MaxSize 1k\n", "MaxSize 1k\n", ""); # sic! - 11
|
#show("20", "11", "MaxSize 1k\n", "MaxSize 1k\n", ""); # sic! - 11
|
||||||
test(\@x20, \@X11);
|
test("max size verification", \@x20, \@X11);
|
||||||
|
|
||||||
#show("20", "22", "", "MaxSize 1k\n", "");
|
#show("20", "22", "", "MaxSize 1k\n", "");
|
||||||
my @X22 = (
|
my @X22 = (
|
||||||
|
@ -171,7 +171,7 @@ my @X22 = (
|
||||||
[ 2, 0, 1,
|
[ 2, 0, 1,
|
||||||
3, 1, "", 1, 2, "", 2, -1, "" ],
|
3, 1, "", 1, 2, "", 2, -1, "" ],
|
||||||
);
|
);
|
||||||
test(\@x20, \@X22);
|
test("slave max size", \@x20, \@X22);
|
||||||
|
|
||||||
# expiration tests
|
# expiration tests
|
||||||
|
|
||||||
|
@ -194,7 +194,7 @@ my @X31 = (
|
||||||
[ 5, 0, 0,
|
[ 5, 0, 0,
|
||||||
1, 1, "F", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
1, 1, "F", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
);
|
);
|
||||||
test(\@x30, \@X31);
|
test("max messages", \@x30, \@X31);
|
||||||
|
|
||||||
my @x40 = @X31[1,2,3];
|
my @x40 = @X31[1,2,3];
|
||||||
|
|
||||||
|
@ -208,7 +208,7 @@ my @X41 = (
|
||||||
[ 5, 2, 0,
|
[ 5, 2, 0,
|
||||||
1, 1, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
1, 1, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
);
|
);
|
||||||
test(\@x40, \@X41);
|
test("max messages catch-up", \@x40, \@X41);
|
||||||
|
|
||||||
my @x50 = (
|
my @x50 = (
|
||||||
[ 5,
|
[ 5,
|
||||||
|
@ -229,7 +229,7 @@ my @X51 = (
|
||||||
[ 5, 2, 0,
|
[ 5, 2, 0,
|
||||||
2, 2, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
2, 2, "F", 3, 3, "", 4, 4, "", 5, 5, "" ],
|
||||||
);
|
);
|
||||||
test(\@x50, \@X51);
|
test("max messages + expire", \@x50, \@X51);
|
||||||
|
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
|
@ -581,10 +581,11 @@ sub printchan($$@)
|
||||||
printstate(@t);
|
printstate(@t);
|
||||||
}
|
}
|
||||||
|
|
||||||
sub test($$)
|
sub test($$$)
|
||||||
{
|
{
|
||||||
my ($sx, $tx) = @_;
|
my ($ttl, $sx, $tx) = @_;
|
||||||
|
|
||||||
|
print "Testing: ".$ttl." ...\n";
|
||||||
mkchan($$sx[0], $$sx[1], @{ $$sx[2] });
|
mkchan($$sx[0], $$sx[1], @{ $$sx[2] });
|
||||||
&writecfg(@{ $$tx[0] });
|
&writecfg(@{ $$tx[0] });
|
||||||
my ($xc, @ret) = runsync("-J");
|
my ($xc, @ret) = runsync("-J");
|
||||||
|
@ -629,6 +630,7 @@ sub test($$)
|
||||||
exit 1;
|
exit 1;
|
||||||
}
|
}
|
||||||
if (ckstate("slave/.mbsyncstate", @{ $$tx[3] })) {
|
if (ckstate("slave/.mbsyncstate", @{ $$tx[3] })) {
|
||||||
|
print "Journal replay failed.\n";
|
||||||
print "Options:\n";
|
print "Options:\n";
|
||||||
print " [ ".join(", ", map('"'.qm($_).'"', @{ $$tx[0] }))." ]\n";
|
print " [ ".join(", ", map('"'.qm($_).'"', @{ $$tx[0] }))." ]\n";
|
||||||
print "Old State:\n";
|
print "Old State:\n";
|
||||||
|
|
Loading…
Reference in New Issue
Block a user