From fc01a97b6c82637f11b5919476c9bccda79f2514 Mon Sep 17 00:00:00 2001
From: Miloslav Metelka <miloslav.metelka@oracle.com>
Date: Mon, 15 May 2017 16:55:21 +0200
Subject: [PATCH] Added test of rawConnection.
---
.../src/com/oracle/truffle/r/test/ExpectedTestOutput.test | 4 ++++
.../oracle/truffle/r/test/library/base/TestConnections.java | 1 +
2 files changed, 5 insertions(+)
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 9d4f0c63c3..db2d6cfa5b 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 7b8806d22c..2272c54b4b 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
--
GitLab