From c78a624a1e3996a15952780f797110879eb970ab Mon Sep 17 00:00:00 2001
From: Adam Welc <adam.welc@oracle.com>
Date: Thu, 25 Aug 2016 20:14:48 -0700
Subject: [PATCH] Regenerated tests.
---
.../truffle/r/test/ExpectedTestOutput.test | 47 +++++++++++++++++++
1 file changed, 47 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 6428634d5f..de4609f72d 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
@@ -374,6 +374,29 @@ Error in y@foo <- 42 : object 'y' not found
##com.oracle.truffle.r.test.S4.TestS4.testSlotUpdate
#{ x<-initialize@valueClass; initialize@valueClass<-"foo"; initialize@valueClass<-x }
+##com.oracle.truffle.r.test.S4.TestS4.testStdGeneric
+#{ standardGeneric("") }
+Error in standardGeneric("") :
+ argument to 'standardGeneric' must be a non-empty character string
+
+##com.oracle.truffle.r.test.S4.TestS4.testStdGeneric
+#{ standardGeneric("foo", 42) }
+Error: expected a generic function or a primitive for dispatch, got an object of class "numeric"
+
+##com.oracle.truffle.r.test.S4.TestS4.testStdGeneric
+#{ standardGeneric(42) }
+Error in standardGeneric(42) :
+ argument to 'standardGeneric' must be a non-empty character string
+
+##com.oracle.truffle.r.test.S4.TestS4.testStdGeneric
+#{ standardGeneric(character()) }
+Error in standardGeneric(character()) :
+ argument to 'standardGeneric' must be a non-empty character string
+
+##com.oracle.truffle.r.test.S4.TestS4.testStdGeneric
+#{ x<-42; class(x)<-character(); standardGeneric("foo", x) }
+Error: expected a generic function or a primitive for dispatch, got an object of class "numeric"
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_Arg.testArg1
#argv <- list(1+2i);Arg(argv[[1]]);
[1] 1.107149
@@ -43882,6 +43905,30 @@ Error: unexpected string constant in "argv <- list(''', '"
##com.oracle.truffle.r.test.builtins.TestBuiltin_setHook.testsetHook1
#argv <- structure(list(hookName = 'UserHook::stats4::onUnload', value = function(pkgname, ...) cat('onUnload', sQuote(pkgname), 'B', '\n')), .Names = c('hookName', 'value'));do.call('setHook', argv)
+##com.oracle.truffle.r.test.builtins.TestBuiltin_setS4Object.testSetS4Object
+#{ x<-42; asS4(x, "TRUE") }
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_setS4Object.testSetS4Object
+#{ x<-42; asS4(x, TRUE, "1") }
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_setS4Object.testSetS4Object
+#{ x<-42; asS4(x, TRUE, c(1,2)) }
+[1] 42
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_setS4Object.testSetS4Object
+#{ x<-42; asS4(x, TRUE, logical()) }
+Error in asS4(x, TRUE, logical()) : invalid 'complete' argument
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_setS4Object.testSetS4Object
+#{ x<-42; asS4(x, c(TRUE, FALSE)) }
+Error in asS4(x, c(TRUE, FALSE)) : invalid 'flag' argument
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_setS4Object.testSetS4Object
+#{ x<-42; asS4(x, logical()) }
+Error in asS4(x, logical()) : invalid 'flag' argument
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_setS4Object.testsetS4Object1
#argv <- list(structure('ObjectsWithPackage', class = structure('signature', package = 'methods'), .Names = '.Object', package = 'methods'), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))
An object of class “signature”
--
GitLab