diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test index 9d4f0c63c3bc00a0e5221bc8df84c6586300ebd2..db2d6cfa5b07e07041d8455c514a77df50ca2546 100644 --- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test +++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test @@ -77781,6 +77781,10 @@ In fifo(fn, "r", blocking = TRUE) : cannot open fifo '___fifo_2367253765' #{ zz <- file("gzipped_____5137528280012599068___.gz", "r", raw=T); res <- readBin(zz, raw(), 4); close(zz); res } Error in readBin(zz, raw(), 4) : can only read from a binary connection +##com.oracle.truffle.r.test.library.base.TestConnections.testFileOpenRaw# +#{ zz <- rawConnection(as.raw(c(65, 66, 67, 0, 97, 98, 99))); readChar(zz, 6) } +[1] "ABC" + ##com.oracle.truffle.r.test.library.base.TestConnections.testFileSummary# #zz <- file('', 'w+'); summary(zz); close(zz) $description diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestConnections.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestConnections.java index 7b8806d22c0b4901ffa1a3d50b14b6061d61ddd9..2272c54b4b939669a2e08fdeab574e3309a761a2 100644 --- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestConnections.java +++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/library/base/TestConnections.java @@ -185,6 +185,7 @@ public class TestConnections extends TestRBase { public void testFileOpenRaw() { Assert.assertTrue("Could not create required temp file for test.", Files.exists(tempFileGzip)); assertEval("{ zz <- file(\"" + tempFileGzip + "\", \"r\", raw=T); res <- readBin(zz, raw(), 4); close(zz); res }"); + assertEval("{ zz <- rawConnection(as.raw(c(65, 66, 67, 0, 97, 98, 99))); readChar(zz, 6) }"); } @Test