capture print in test

Author: ben-schwen

inst/tests/tests.Rraw

@@ -21871,8 +21871,7 @@ test(2346.3, fread(file(f, "r"), nrows=5), fread(f, nrows=5))
 test(2346.4, fread(file(f, "r"), nrows=5, header=FALSE), fread(f, nrows=5, header=FALSE))
 # test with open connection consuming part of the connection before fread
 con = file(f, "rb")
-readLines(con, n=3)
-test(2346.5, fread(con), fread(f, skip=3L))
+test(2346.5, {readLines(con, n=3); fread(con)}, fread(f, skip=3L))
 close(con)
 file.create(f <- tempfile())
 test(2346.6, fread(file(f)), data.table(), warning="Connection has size 0.")