dump logs in TAP-tests

Author: kelvich

Cluster.pm

@@ -208,6 +208,18 @@ sub stop
 	my $nodes = $self->{nodes};
 	$mode = 'fast' unless defined $mode;
 
+	diag("Dumping logs:");
+	foreach my $node (@$nodes) {
+		diag("##################################################################");
+		diag($node->{_logfile});
+		diag("##################################################################");
+		my $filename = $node->{_logfile};
+		open my $fh, '<', $filename or die "error opening $filename: $!";
+		my $data = do { local $/; <$fh> };
+		diag($data);
+		diag("##################################################################\n\n");
+	}
+
 	my $ok = 1;
 	diag("stopping cluster ${mode}ly");