From 991e809c389a85bb17cb1e4341df226c0c3812a8 Mon Sep 17 00:00:00 2001
From: Oswald Buddenhagen <ossi@users.sf.net>
Date: Wed, 29 Mar 2017 16:24:55 +0200
Subject: [PATCH] autotest: factor out readfile() function

---
 src/run-tests.pl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/run-tests.pl b/src/run-tests.pl
index 4390173..b864b33 100755
--- a/src/run-tests.pl
+++ b/src/run-tests.pl
@@ -605,6 +605,16 @@ sub printchan($)
 	printstate(@{ $$cs[2] });
 }
 
+sub readfile($)
+{
+	my ($file) = @_;
+
+	open(FILE, $file) or return;
+	my @nj = <FILE>;
+	close FILE;
+	return @nj;
+}
+
 # $title, \@source_state, \@target_state, @channel_configs
 sub test($$$@)
 {
@@ -632,10 +642,7 @@ sub test($$$@)
 		exit 1;
 	}
 
-	open(FILE, "<", "slave/.mbsyncstate.journal") or
-		die "Cannot read journal.\n";
-	my @nj = <FILE>;
-	close FILE;
+	my @nj = readfile("slave/.mbsyncstate.journal");
 	($xc, @ret) = runsync("-0 --no-expunge");
 	if ($xc || ckstate("slave/.mbsyncstate", @{ $$tx[2] })) {
 		print "Journal replay failed.\n";