|
39 | 39 | # Work after node stop
|
40 | 40 | ###############################################################################
|
41 | 41 |
|
42 |
| -diag("stopping node 2"); |
| 42 | +note("stopping node 2"); |
43 | 43 | if ($cluster->stopid(2,'fast')) {
|
44 | 44 | pass("node 2 stops in fast mode");
|
45 | 45 | }else {
|
|
49 | 49 |
|
50 | 50 | sleep(5);# Wait until failure of node will be detected
|
51 | 51 |
|
52 |
| -diag("inserting 2 on node 0"); |
| 52 | +note("inserting 2 on node 0"); |
53 | 53 | $ret =$cluster->psql(0,'postgres',"insert into t values(2, 20);");# this transaciton may fail
|
54 |
| -diag"tx1 status =$ret"; |
| 54 | +note"tx1 status =$ret"; |
| 55 | + |
55 | 56 |
|
56 |
| -diag("inserting 3 on node 1"); |
| 57 | +note("inserting 3 on node 1"); |
57 | 58 | $ret =$cluster->psql(1,'postgres',"insert into t values(3, 30);");# this transaciton may fail
|
58 |
| -diag"tx2 status =$ret"; |
| 59 | +note("tx2 status =$ret"); |
59 | 60 |
|
60 |
| -diag("inserting 4 on node 0 (can fail)"); |
| 61 | +note("inserting 4 on node 0 (can fail)"); |
61 | 62 | $ret =$cluster->psql(0,'postgres',"insert into t values(4, 40);");
|
62 |
| -diag"tx1 status =$ret"; |
| 63 | +note"tx1 status =$ret"; |
63 | 64 |
|
64 |
| -diag("inserting 5 on node 1 (can fail)"); |
| 65 | +note("inserting 5 on node 1 (can fail)"); |
65 | 66 | $ret =$cluster->psql(1,'postgres',"insert into t values(5, 50);");
|
66 |
| -diag"tx2 status =$ret"; |
| 67 | +note("tx2 status =$ret"); |
67 | 68 |
|
68 |
| -diag("selecting"); |
| 69 | +note("selecting"); |
69 | 70 | $cluster->psql(1,'postgres',"select v from t where k=4;",stdout=> \$psql_out);
|
70 |
| -diag("selected"); |
| 71 | +note("selected"); |
71 | 72 | is($psql_out,'40',"Check replication after node failure.");
|
72 | 73 |
|
73 | 74 | ###############################################################################
|
74 | 75 | # Work after node start
|
75 | 76 | ###############################################################################
|
76 | 77 |
|
77 |
| -diag("starting node 2"); |
| 78 | +note("starting node 2"); |
78 | 79 | $cluster->{nodes}->[2]->start;
|
79 | 80 |
|
80 | 81 | sleep(5);# Wait until node is started
|
81 | 82 |
|
82 |
| -diag("inserting 6 on node 0 (can fail)"); |
| 83 | +note("inserting 6 on node 0 (can fail)"); |
83 | 84 | $cluster->psql(0,'postgres',"insert into t values(6, 60);");
|
84 |
| -diag("inserting 7 on node 1 (can fail)"); |
| 85 | +note("inserting 7 on node 1 (can fail)"); |
85 | 86 | $cluster->psql(1,'postgres',"insert into t values(7, 70);");
|
86 | 87 |
|
87 |
| -diag("polling node 2"); |
| 88 | +note("polling node 2"); |
88 | 89 | for (my$poller = 0;$poller < 3;$poller++) {
|
89 | 90 | my$pollee = 2;
|
90 | 91 | ok($cluster->poll($poller,'postgres',$pollee, 10, 1),"node$pollee is online according to node$poller");
|
91 | 92 | }
|
92 | 93 |
|
93 |
| -diag("getting cluster state"); |
| 94 | +note("getting cluster state"); |
94 | 95 | $cluster->psql(0,'postgres',"select * from mtm.get_cluster_state();",stdout=> \$psql_out);
|
95 |
| -diag("Node 1 status:$psql_out"); |
| 96 | +note("Node 1 status:$psql_out"); |
96 | 97 | $cluster->psql(1,'postgres',"select * from mtm.get_cluster_state();",stdout=> \$psql_out);
|
97 |
| -diag("Node 2 status:$psql_out"); |
| 98 | +note("Node 2 status:$psql_out"); |
98 | 99 | $cluster->psql(2,'postgres',"select * from mtm.get_cluster_state();",stdout=> \$psql_out);
|
99 |
| -diag("Node 3 status:$psql_out"); |
| 100 | +note("Node 3 status:$psql_out"); |
100 | 101 |
|
101 |
| -diag("inserting 8 on node 0"); |
| 102 | +note("inserting 8 on node 0"); |
102 | 103 | $cluster->psql(0,'postgres',"insert into t values(8, 80);");
|
103 |
| -diag("inserting 9 on node 1"); |
| 104 | +note("inserting 9 on node 1"); |
104 | 105 | $cluster->psql(1,'postgres',"insert into t values(9, 90);");
|
105 | 106 |
|
106 |
| -diag("selecting from node 2"); |
| 107 | +note("selecting from node 2"); |
107 | 108 | $cluster->psql(2,'postgres',"select v from t where k=8;",stdout=> \$psql_out);
|
108 |
| -diag("selected"); |
| 109 | +note("selected"); |
109 | 110 |
|
110 | 111 | is($psql_out,'80',"Check replication after failed node recovery.");
|
111 | 112 |
|
112 | 113 | $cluster->psql(2,'postgres',"select v from t where k=9;",stdout=> \$psql_out);
|
113 |
| -diag("selected"); |
| 114 | +note("selected"); |
114 | 115 |
|
115 | 116 | is($psql_out,'90',"Check replication after failed node recovery.");
|
116 | 117 |
|
|