more logical order
This commit is contained in:
parent
044d8dfb73
commit
d5a1f5876d
|
@ -22,97 +22,97 @@ my @x01 = (
|
||||||
|
|
||||||
#show("01", "01", "", "", "");
|
#show("01", "01", "", "", "");
|
||||||
my @X01 = (
|
my @X01 = (
|
||||||
|
[ "", "", "" ],
|
||||||
[ 10,
|
[ 10,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 9, "", 10, 10, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 9, "", 10, 10, "" ],
|
||||||
[ 10,
|
[ 10,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "T", 9, 10, "", 10, 9, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "T", 9, 10, "", 10, 9, "" ],
|
||||||
[ 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(\@x01, \@X01);
|
||||||
|
|
||||||
#show("01", "02", "", "", "Expunge Both\n");
|
#show("01", "02", "", "", "Expunge Both\n");
|
||||||
my @X02 = (
|
my @X02 = (
|
||||||
|
[ "", "", "Expunge Both\n" ],
|
||||||
[ 10,
|
[ 10,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 9, "", 10, 10, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 9, "", 10, 10, "" ],
|
||||||
[ 10,
|
[ 10,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 10, "", 10, 9, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 10, "", 10, 9, "" ],
|
||||||
[ 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, "" ],
|
||||||
[ "", "", "Expunge Both\n" ],
|
|
||||||
);
|
);
|
||||||
test(\@x01, \@X02);
|
test(\@x01, \@X02);
|
||||||
|
|
||||||
#show("01", "03", "", "", "Expunge Slave\n");
|
#show("01", "03", "", "", "Expunge Slave\n");
|
||||||
my @X03 = (
|
my @X03 = (
|
||||||
|
[ "", "", "Expunge Slave\n" ],
|
||||||
[ 10,
|
[ 10,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 9, "", 10, 10, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 9, "", 10, 10, "" ],
|
||||||
[ 10,
|
[ 10,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 10, "", 10, 9, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 10, "", 10, 9, "" ],
|
||||||
[ 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", 10, 9, "", 9, 10, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 0, "", 7, 7, "FT", 10, 9, "", 9, 10, "" ],
|
||||||
[ "", "", "Expunge Slave\n" ],
|
|
||||||
);
|
);
|
||||||
test(\@x01, \@X03);
|
test(\@x01, \@X03);
|
||||||
|
|
||||||
#show("01", "04", "", "", "Sync Pull\n");
|
#show("01", "04", "", "", "Sync Pull\n");
|
||||||
my @X04 = (
|
my @X04 = (
|
||||||
|
[ "", "", "Sync Pull\n" ],
|
||||||
[ 9,
|
[ 9,
|
||||||
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 9, "" ],
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 9, "" ],
|
||||||
[ 9,
|
[ 9,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "T", 9, 9, "", 10, 0, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "T", 9, 9, "", 10, 0, "" ],
|
||||||
[ 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, "" ],
|
||||||
[ "", "", "Sync Pull\n" ],
|
|
||||||
);
|
);
|
||||||
test(\@x01, \@X04);
|
test(\@x01, \@X04);
|
||||||
|
|
||||||
#show("01", "05", "", "", "Sync Flags\n");
|
#show("01", "05", "", "", "Sync Flags\n");
|
||||||
my @X05 = (
|
my @X05 = (
|
||||||
|
[ "", "", "Sync Flags\n" ],
|
||||||
[ 8,
|
[ 8,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 0, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 0, "" ],
|
||||||
[ 8,
|
[ 8,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "", 10, 0, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "", 10, 0, "" ],
|
||||||
[ 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, "" ],
|
||||||
[ "", "", "Sync Flags\n" ],
|
|
||||||
);
|
);
|
||||||
test(\@x01, \@X05);
|
test(\@x01, \@X05);
|
||||||
|
|
||||||
#show("01", "06", "", "", "Sync Delete\n");
|
#show("01", "06", "", "", "Sync Delete\n");
|
||||||
my @X06 = (
|
my @X06 = (
|
||||||
|
[ "", "", "Sync Delete\n" ],
|
||||||
[ 8,
|
[ 8,
|
||||||
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 0, "" ],
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 0, "" ],
|
||||||
[ 8,
|
[ 8,
|
||||||
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 7, 7, "", 8, 8, "T", 10, 0, "" ],
|
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 7, 7, "", 8, 8, "T", 10, 0, "" ],
|
||||||
[ 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, "" ],
|
||||||
[ "", "", "Sync Delete\n" ],
|
|
||||||
);
|
);
|
||||||
test(\@x01, \@X06);
|
test(\@x01, \@X06);
|
||||||
|
|
||||||
#show("01", "07", "", "", "Sync New\n");
|
#show("01", "07", "", "", "Sync New\n");
|
||||||
my @X07 = (
|
my @X07 = (
|
||||||
|
[ "", "", "Sync New\n" ],
|
||||||
[ 10,
|
[ 10,
|
||||||
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 9, "", 10, 10, "" ],
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 9, "", 10, 10, "" ],
|
||||||
[ 10,
|
[ 10,
|
||||||
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 7, 7, "", 8, 8, "", 9, 10, "", 10, 9, "" ],
|
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 7, 7, "", 8, 8, "", 9, 10, "", 10, 9, "" ],
|
||||||
[ 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, "" ],
|
||||||
[ "", "", "Sync New\n" ],
|
|
||||||
);
|
);
|
||||||
test(\@x01, \@X07);
|
test(\@x01, \@X07);
|
||||||
|
|
||||||
#show("01", "08", "", "", "Sync PushFlags PullDelete\n");
|
#show("01", "08", "", "", "Sync PushFlags PullDelete\n");
|
||||||
my @X08 = (
|
my @X08 = (
|
||||||
|
[ "", "", "Sync PushFlags PullDelete\n" ],
|
||||||
[ 8,
|
[ 8,
|
||||||
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 0, "" ],
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 0, "" ],
|
||||||
[ 8,
|
[ 8,
|
||||||
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 7, 7, "", 8, 8, "T", 10, 0, "" ],
|
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 7, 7, "", 8, 8, "T", 10, 0, "" ],
|
||||||
[ 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, "" ],
|
||||||
[ "", "", "Sync PushFlags PullDelete\n" ],
|
|
||||||
);
|
);
|
||||||
test(\@x01, \@X08);
|
test(\@x01, \@X08);
|
||||||
|
|
||||||
|
@ -304,8 +304,8 @@ sub test($$)
|
||||||
{
|
{
|
||||||
my ($sx, $tx) = @_;
|
my ($sx, $tx) = @_;
|
||||||
mkchan($$sx[0], $$sx[1], @{ $$sx[2] });
|
mkchan($$sx[0], $$sx[1], @{ $$sx[2] });
|
||||||
&runsync(@{ $$tx[3] });
|
&runsync(@{ $$tx[0] });
|
||||||
ckchan(fcfg(@{ $$tx[3] }), $$tx[0], $$tx[1], @{ $$tx[2] });
|
ckchan(fcfg(@{ $$tx[0] }), $$tx[1], $$tx[2], @{ $$tx[3] });
|
||||||
rmtree "slave";
|
rmtree "slave";
|
||||||
rmtree "master";
|
rmtree "master";
|
||||||
}
|
}
|
||||||
|
@ -366,8 +366,8 @@ sub show($$@)
|
||||||
print ");\n";
|
print ");\n";
|
||||||
&runsync(@sfx);
|
&runsync(@sfx);
|
||||||
print "my \@X$tx = (\n";
|
print "my \@X$tx = (\n";
|
||||||
showchan();
|
|
||||||
print " [ ".join(", ", map('"'.qm($_).'"', @sfx))." ],\n";
|
print " [ ".join(", ", map('"'.qm($_).'"', @sfx))." ],\n";
|
||||||
|
showchan();
|
||||||
print ");\n";
|
print ");\n";
|
||||||
print "test(\\\@x$sx, \\\@X$tx);\n\n";
|
print "test(\\\@x$sx, \\\@X$tx);\n\n";
|
||||||
rmtree "slave";
|
rmtree "slave";
|
||||||
|
|
Loading…
Reference in New Issue
Block a user