From 1a698dd49a2c523c3db021e7b9792ffb6f451f82 Mon Sep 17 00:00:00 2001
From: Lukas Stadler <lukas.stadler@oracle.com>
Date: Wed, 27 May 2015 19:20:21 +0200
Subject: [PATCH] regenerate test output
---
.../truffle/r/test/ExpectedTestOutput.test | 46 +++++++++++++++++++
1 file changed, 46 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 ccd9eeddbc..9ea0c0786e 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
@@ -48492,6 +48492,10 @@ character(0)
[1,] 7
[2,] 9
+##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatch
+#{ match("a", factor(c("a", "b", "a"))) }
+[1] 1
+
##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatch
#{ match("abc", c("xyz")) }
[1] NA
@@ -48550,6 +48554,10 @@ character(0)
#{ match(factor(c("a", "b")), factor(c("c", "b", "a", "b", "c", "a"))) }
[1] 3 2
+##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatch
+#{ match(factor(c("a", "b", "a")), "a") }
+[1] 1 NA 1
+
##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatchCall
#{ f <- function() match.call() ; f() }
f()
@@ -48598,6 +48606,44 @@ f(x = 2)
#{ f <- function(x) match.call() ; f(x=2) }
f(x = 2)
+##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatchCall
+#{ f1<-function(...) { dots <- match.call(expand.dots = FALSE)$...; dots }; f2<-function(...) f1(...); f2("a") }
+[[1]]
+[1] "a"
+
+
+##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatchCall
+#{ f1<-function(...) { dots <- match.call(expand.dots = FALSE)$...; dots }; f2<-function(...) f1(...); f2(c("a")) }
+[[1]]
+..1
+
+
+##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatchCall
+#{ f1<-function(...) { dots <- match.call(expand.dots = FALSE)$...; dots }; f2<-function(...) f1(...); f2(c("a"), "b") }
+[[1]]
+..1
+
+[[2]]
+[1] "b"
+
+
+##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatchCall
+#{ f1<-function(...) { dots <- match.call(expand.dots = FALSE)$...; dots }; f2<-function(...) f1(...); f2(c("a"), c("b")) }
+[[1]]
+..1
+
+[[2]]
+..2
+
+
+##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatchCall
+#{ f1<-function(...) { dots <- match.call(expand.dots = FALSE)$...; dots }; f2<-function(...) f1(...); typeof(f2("a")[[1]]) }
+[1] "character"
+
+##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatchCall
+#{ f1<-function(...) { dots <- match.call(expand.dots = FALSE)$...; dots }; f2<-function(...) f1(...); typeof(f2(c("a"))[[1]]) }
+[1] "symbol"
+
##com.oracle.truffle.r.test.library.base.TestSimpleBuiltins.testMatchFun
#{ f <- function(x) { y <- match.fun(x) ; y(3,4) } ; c(f("+"),f("*")) }
[1] 7 12
--
GitLab