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 6a64af4b4cc26af3a02d30c10ff0463a9293f4f7..24fd09b39298ea76986ae10ce77fea5445091a0f 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 @@ -94591,6 +94591,10 @@ list() [1] 5 +##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther +#{ f<-function() 42; y<-list(); y[[1]]<-f; y[[1]] } +function() 42 + ##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther #{ f<-function(v, ...) v[...]; x<-matrix(1:4, ncol=2); f(x, 1, 2) } [1] 3 @@ -95729,6 +95733,10 @@ Error in x[[as.integer(NA)]] : subscript out of bounds #{ x<-as.integer(1:4); x[[as.integer(NA)]] } Error in x[[as.integer(NA)]] : subscript out of bounds +##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther +#{ x<-as.symbol("foo"); y<-list(); y[[1]]<-x; y[[1]] } +foo + ##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther #{ x<-c("a", "b"); dim(x)<-c(2,1); dimnames(x)<-list(c("Z", "X"), NULL); x[, "Z"] } Error in x[, "Z"] : subscript out of bounds @@ -95941,6 +95949,14 @@ Error in x[[c("z", "x")]] : attempt to select more than one element Error in `[<-`(`*tmp*`, "a", exact = FALSE, value = 7) : no 'dimnames' attribute for array +##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther +#{ x<-emptyenv(); y<-list(); y[[1]]<-x; y[[1]] } +<environment: R_EmptyEnv> + +##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther +#{ x<-getClass("ClassUnionRepresentation"); y<-list(); y[[1]]<-x; y[[1]]@virtual } +[1] FALSE + ##com.oracle.truffle.r.test.library.base.TestSimpleVectors.testMoreVectorsOther #{ x<-list(1); x["y"] } [[1]]