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 a65d85bf1233c9fa53e3a2f8ac4fcb72d77df7a1..4a8f8ffe6e46a0ad315fa4ce911cf4a0e449842d 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 @@ -10364,6 +10364,18 @@ expression(1, 2) #{ c(1i,0/0) } [1] 0+1i NaN+0i +##com.oracle.truffle.r.test.builtins.TestBuiltin_c.testRecursive +#argv <- list(c(1,2),c(3,4),c(5,6), recursive=TRUE));c(argv[[1]]); +Error: unexpected ')' in "argv <- list(c(1,2),c(3,4),c(5,6), recursive=TRUE))" + +##com.oracle.truffle.r.test.builtins.TestBuiltin_c.testRecursive +#argv <- list(c(list(c(1,2),c(3,4)),c(5,6), recursive=TRUE));c(argv[[1]]); +[1] 1 2 3 4 5 6 + +##com.oracle.truffle.r.test.builtins.TestBuiltin_c.testRecursive +#argv <- list(list(), recursive=TRUE));c(argv[[1]]); +Error: unexpected ')' in "argv <- list(list(), recursive=TRUE))" + ##com.oracle.truffle.r.test.builtins.TestBuiltin_c.testc1 #argv <- list(character(0), 'myLib/myTst');c(argv[[1]],argv[[2]]); [1] "myLib/myTst"