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 ad6a7f6d381ca1e8949a34b3864d8283eab9cbc3..3b9ff1451366f532bc0953c01df581a6882fc3b0 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 @@ -49236,12 +49236,31 @@ Error: invalid 'what' argument #{ con<-textConnection(c("1.5 2.89 3", "4 5 6")); .Internal(scan(con, 1.2, 2, ' ', NULL, '"', 0, 3, "NA", F, F, F, T, T, '', '#', T, 'utf8', F)) } [1] 1.50 2.89 +##com.oracle.truffle.r.test.builtins.TestBuiltin_scan.testReadCsv# +#fileConn<-file('__TestBuiltin_scan_testReadCsvTestFile.cvs'); writeLines(c('n1,n2<<<NEWLINE>>>v1,"v5, v5"<<<NEWLINE>>>'), fileConn); m <- read.csv('__TestBuiltin_scan_testReadCsvTestFile.cvs'); m + n1 n2 +1 v1 v5, v5 + ##com.oracle.truffle.r.test.builtins.TestBuiltin_scan.testScan# #con <- textConnection("A|B|C\n1|2|3\n4|5|6"); read.csv(con, sep="|") A B C 1 1 2 3 2 4 5 6 +##com.oracle.truffle.r.test.builtins.TestBuiltin_scan.testScan# +#con<-textConnection(c("foo,'bar,bar'")); scan(con, what=list(""), sep=',') +Read 2 records +[[1]] +[1] "foo" "bar,bar" + + +##com.oracle.truffle.r.test.builtins.TestBuiltin_scan.testScan# +#con<-textConnection(c("foo,\"bar,bar\"")); scan(con, what=list(""), sep=',') +Read 2 records +[[1]] +[1] "foo" "bar,bar" + + ##com.oracle.truffle.r.test.builtins.TestBuiltin_scan.testScan# #{ con<-textConnection(c("'foo'")); scan(con, what=list("")) } Read 1 record @@ -130688,7 +130707,7 @@ Error in attr(to, "a") <- "a" : external object cannot be attributed #if (length(grep("FastR", R.Version()$version.string)) != 1) { cat('Error in attr(to, which = "a") : external object cannot be attributed<<<NEWLINE>>>') } else { to <- .fastr.interop.new(.fastr.java.class('com.oracle.truffle.r.test.library.fastr.TestJavaInterop$TestClass')); attr(to, which = 'a') } Error in attr(to, which = "a") : external object cannot be attributed -##com.oracle.truffle.r.test.library.fastr.TestJavaInterop.testClassAsParameter# +##com.oracle.truffle.r.test.library.fastr.TestJavaInterop.testClassAsParameter#Ignored.ImplementationError# #if (length(grep("FastR", R.Version()$version.string)) != 1) { "com.oracle.truffle.r.test.library.fastr.TestJavaInterop$TestClass" } else { tc <- .fastr.java.class('com.oracle.truffle.r.test.library.fastr.TestJavaInterop$TestClass'); t <- .fastr.interop.new(tc); t$classAsArg(tc) } [1] "com.oracle.truffle.r.test.library.fastr.TestJavaInterop$TestClass"