From 945640cf6b4599c4460f6bdd2bacddd563d72f8c Mon Sep 17 00:00:00 2001
From: Adam Welc <adam.welc@oracle.com>
Date: Thu, 17 Dec 2015 17:51:26 -0800
Subject: [PATCH] Regenerated tests.
---
.../truffle/r/test/ExpectedTestOutput.test | 34 +++++++++++++++++++
1 file changed, 34 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 3701a87336..84c1ffe516 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
@@ -19991,6 +19991,14 @@ Error: unexpected symbol in "argv <- list(structure(c('Q.1 Opinion of president'
#{ identical(quote(if(x) 42), quote(if(x) 7)) }
[1] FALSE
+##com.oracle.truffle.r.test.builtins.TestBuiltin_identical.testIdentical
+#{ setClass("foo", representation(j="numeric")); x<-new("foo", j=42); y<-new("foo", j=42); identical(x,y) }
+[1] TRUE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_identical.testIdentical
+#{ setClass("foo", representation(j="numeric")); x<-new("foo", j=42); y<-new("foo", j=7); identical(x,y) }
+[1] FALSE
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_identical.testIdentical
#{ x <- 1 ; attr(x, "hello") <- 2 ; attr(x, "my") <- 10; attr(x, "hello") <- NULL ; y <- 1 ; attr(y, "my") <- 10 ; identical(x,y) }
[1] TRUE
@@ -20007,6 +20015,22 @@ Error: unexpected symbol in "argv <- list(structure(c('Q.1 Opinion of president'
#{ x <- 1 ; attr(x, "my") <- 10; y <- 1 ; attr(y, "my") <- 11 ; identical(x,y) }
[1] FALSE
+##com.oracle.truffle.r.test.builtins.TestBuiltin_identical.testIdentical
+#{ x<-list(7); y<-list(42); identical(x,y) }
+[1] FALSE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_identical.testIdentical
+#{ x<-list(7); y<-list(7); identical(x,y) }
+[1] TRUE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_identical.testIdentical
+#{ x<-list(list(7)); y<-list(list(42)); identical(x,y) }
+[1] FALSE
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_identical.testIdentical
+#{ x<-list(list(7)); y<-list(list(7)); identical(x,y) }
+[1] TRUE
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_identical.testidentical1
#argv <- list('oats[-1, ]', 'newdata', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
[1] FALSE
@@ -46220,6 +46244,12 @@ Error: unexpected symbol in " ifelse(onefile, 'Rplots.pdf', 'Rplot%03d.pdf')
#argv <- list(c(-21.222245139688+176.377752294836i, -21.222245139688-176.377752294836i, 61.0965873274467+76.779430575699i, 61.0965873274467-76.779430575699i, -11.7486843755171+0i)); .Internal(typeof(argv[[1]]))
[1] "complex"
+##com.oracle.truffle.r.test.builtins.TestBuiltin_unclass.testOther
+#{ setClass("foo", representation(j="numeric")); x<-new("foo", j=42); unclass(x) }
+<S4 Type Object>
+attr(,"j")
+[1] 42
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_unclass.testunclass1
#argv <- list(c(-1, -1));unclass(argv[[1]]);
[1] -1 -1
@@ -56421,6 +56451,10 @@ $vectors
#{ x <- c(a=1, b=2) ; attr(x, "myatt") <- 1 ; as.integer(x) }
[1] 1 2
+##com.oracle.truffle.r.test.library.base.TestSimpleAttributes.testDefinition
+#{ attributes(NULL) }
+NULL
+
##com.oracle.truffle.r.test.library.base.TestSimpleAttributes.testDefinition
#{ x <- "s" ; attr(x, "hi") <- 2 ; x }
[1] "s"
--
GitLab