From 9ae1894be72c148b2c4d6a22ce2a5c80641d69e6 Mon Sep 17 00:00:00 2001
From: Tomas Stupka <tomas.stupka@oracle.com>
Date: Fri, 10 Feb 2017 13:39:48 +0100
Subject: [PATCH] generated expected output messages

---
 .../truffle/r/test/ExpectedTestOutput.test    | 1046 ++++++++++++++++-
 1 file changed, 1033 insertions(+), 13 deletions(-)

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 6a8a449ed9..60daf472e9 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
@@ -5466,7 +5466,7 @@ character(0)
 #argv <- list(list(epsilon = 1e-08, maxit = 25, trace = FALSE));as.character(argv[[1]]);
 [1] "1e-08" "25"    "FALSE"
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_ascharacter.testascharacter19#Ignored.Unknown#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_ascharacter.testascharacter19#
 #argv <- list(structure(list(structure(list(given = c('George', 'E.', 'P.'), family = 'Box', role = NULL, email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment')), structure(list(given = c('David', 'R.'), family = 'Cox', role = NULL, email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment'))), class = 'person'));as.character(argv[[1]]);
 [1] "George E. P. Box" "David R. Cox"
 
@@ -5577,7 +5577,7 @@ character(0)
 [4] "2012-06-04 04:00:00" "2012-06-05 04:00:00" "2012-06-06 04:00:00"
 [7] "2012-06-07 04:00:00"
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_ascharacter.testascharacter32#Ignored.Unknown#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_ascharacter.testascharacter32#
 #argv <- list(structure(1:4, class = 'roman'));as.character(argv[[1]]);
 [1] "I"   "II"  "III" "IV"
 
@@ -6231,7 +6231,7 @@ a + foo(c) * b
 #foo <- function(x) x*2; f <- function() a+foo(c)*b; as.function(c(alist(a=1+14, b=foo(x),c=), body(f)))(c=3,b=1)
 [1] 21
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_asfunction.testasfunction#Output.IgnoreErrorContext#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asfunction.testasfunction#
 #{ .Internal(as.function.default(alist(a+b), "foo")) }
 Error in as.function.default(alist(a + b), "foo") : invalid environment
 
@@ -7180,15 +7180,15 @@ Warning messages:
 2: In as.vector("foo", "raw") :
   out-of-range values treated as 0 in coercion to raw
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#Output.IgnoreErrorContext#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#
 #{ as.vector(42, NULL) }
 Error in as.vector(x, mode) : invalid 'mode' argument
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#Output.IgnoreErrorContext#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#
 #{ as.vector(42, c("character", "character")) }
 Error in as.vector(x, mode) : invalid 'mode' argument
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#Output.IgnoreErrorContext#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asvector.testAsVector#
 #{ as.vector(42, character())  }
 Error in as.vector(x, mode) : invalid 'mode' argument
 
@@ -12188,7 +12188,7 @@ Traceback:
  2: cbind(v)
 An irrecoverable exception occurred. R is aborting now ...
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_cbind.testGenericDispatch#Ignored.WrongCaller#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_cbind.testGenericDispatch#Output.IgnoreErrorContext#
 #{ v <- 1; class(v) <- 'foo'; cbind.foo <- rawToBits; cbind(v) }
 Error in cbind(deparse.level, ...) : argument 'x' must be a raw vector
 
@@ -34312,11 +34312,11 @@ NULL
 [1] "some"
 [1] "test"
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testBinaryOperators#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testBooleanOperators#
 #as.symbol('*') == '*'
 [1] TRUE
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testBinaryOperators#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testBooleanOperators#
 #as.symbol('<-') == '<-'
 [1] TRUE
 
@@ -35451,7 +35451,7 @@ x
    0    1    2    3    4    5    6    7    8
 TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators118#Ignored.Unknown#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_operators.testoperators118#
 #argv <- list(structure(c('white', 'aquamarine3', 'bisque2', 'blueviolet', 'burlywood4', 'chartreuse4', 'coral4', 'cyan3', 'darkgreen', 'darkorange1', 'aliceblue', 'white', 'white', 'white', 'white', 'chocolate', 'cornflowerblue', 'cyan4', 'darkgrey', 'darkorange2', 'antiquewhite', 'white', 'white', 'white', 'white', 'chocolate1', 'cornsilk', 'darkblue', 'darkkhaki', 'darkorange3', 'antiquewhite1', 'white', 'white', 'white', 'white', 'chocolate2', 'cornsilk1', 'darkcyan', 'darkmagenta', 'darkorange4', 'antiquewhite2', 'azure2', 'blanchedalmond', 'brown3', 'cadetblue3', 'chocolate3', 'cornsilk2', 'darkgoldenrod', 'darkolivegreen', 'darkorchid', 'antiquewhite3', 'azure3', 'blue', 'brown4', 'cadetblue4', 'chocolate4', 'cornsilk3', 'darkgoldenrod1', 'darkolivegreen1', 'darkorchid1', 'antiquewhite4', 'azure4', 'blue1', 'burlywood', 'chartreuse', 'coral', 'cornsilk4', 'darkgoldenrod2', 'darkolivegreen2', 'darkorchid2', 'aquamarine', 'beige', 'blue2', 'burlywood1', 'chartreuse1', 'coral1', 'cyan', 'darkgoldenrod3', 'darkolivegreen3', 'darkorchid3', 'aquamarine1', 'bisque', 'blue3', 'burlywood2', 'chartreuse2', 'coral2', 'cyan1', 'darkgoldenrod4', 'darkolivegreen4', 'darkorchid4', 'aquamarine2', 'bisque1', 'blue4', 'burlywood3', 'chartreuse3', 'coral3', 'cyan2', 'darkgray', 'darkorange', 'darkred'), .Dim = c(10L, 10L), class = 'raster'), 'white');`==`(argv[[1]],argv[[2]]);
        [,1]  [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9] [,10]
  [1,]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
@@ -42671,7 +42671,7 @@ Traceback:
  2: rbind(v)
 An irrecoverable exception occurred. R is aborting now ...
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_rbind.testGenericDispatch#Ignored.WrongCaller#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_rbind.testGenericDispatch#Output.IgnoreErrorContext#
 #{ v <- 1; class(v) <- 'foo'; rbind.foo <- rawToBits; rbind(v) }
 Error in rbind(deparse.level, ...) : argument 'x' must be a raw vector
 
@@ -58143,7 +58143,7 @@ integer(0)
 [41] 26163.27 26367.35 26571.43 26775.51 26979.59 27183.67 27387.76 27591.84
 [49] 27795.92 28000.00
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_seq_along.testWithNonStandardLength#Ignored.Unimplemented#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_seq_along.testWithNonStandardLength#
 #{ assign('length.myclass', function(...) 42, envir=.__S3MethodsTable__.); x <- 1; class(x) <- 'myclass'; res <- seq_along(x); rm('length.myclass', envir=.__S3MethodsTable__.); res }
  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
 [26] 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
@@ -61116,7 +61116,7 @@ character(0)
 #argv <- list('p,L,S = (%2d,%2d,%2d): ', TRUE, FALSE, NA); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
 [1] "p,L,S = ( 1, 0,NA): "
 
-##com.oracle.truffle.r.test.builtins.TestBuiltin_sprintf.testsprintf8#Ignored.Unknown#
+##com.oracle.truffle.r.test.builtins.TestBuiltin_sprintf.testsprintf8#
 #argv <- list('plot_%02g', 1L); .Internal(sprintf(argv[[1]], argv[[2]]))
 [1] "plot_01"
 
@@ -63063,6 +63063,54 @@ Warning message:
 In `[.data.frame`(x = list(Satellites = c(8L, 0L, 9L, 0L, 4L, 0L,  :
   named arguments other than 'drop' are discouraged
 
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), NA); a
+Error in substitute(quote(x + 1), NA) : invalid environment specified
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), NULL); a
+quote(x + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), c(c(list(x=1)))); a
+quote(1 + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), c(list(x=1), 'breakme')); a
+quote(1 + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), c(list(x=1, 1))); a
+quote(1 + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), list(1)); a
+quote(x + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), list(c(c(list(x=1))))); a
+quote(x + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), list(list(x=1))); a
+quote(x + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), list(x=1)); a
+quote(1 + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+1), list(y=1)); a
+quote(x + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#a<-substitute(quote(x+y), c(list(x=1), list(y=1))); a
+quote(1 + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#f<-function() {}; substitute(quote(x+1), f)
+Error in substitute(quote(x + 1), f) : invalid environment specified
+
 ##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
 #f<-function(...) { print(typeof(get('...'))); environment() }; e <- f(c(1,2), b=15, c=44); substitute(foo2({...}), e)
 [1] "..."
@@ -63112,6 +63160,47 @@ foo@bar
 #f<-function(x,name) substitute(x@name<-2); f(foo, bar)
 foo@bar <- 2
 
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(1, 1)
+Error in substitute(1, 1) : invalid environment specified
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(1, 1, 1)
+Error in substitute(1, 1, 1) : unused argument (1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(1, NA)
+Error in substitute(1, NA) : invalid environment specified
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(1, NULL)
+[1] 1
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(1, c(list(1)))
+[1] 1
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(1, list(c(list(1))))
+[1] 1
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(1, list(list(1)))
+[1] 1
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(expr=1, env=1)
+Error in substitute(expr = 1, env = 1) : invalid environment specified
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(quote(x+1), environment())
+quote(x + 1)
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
+#substitute(quote(x+1), setClass('a'))
+Error in substitute(quote(x + 1), setClass("a")) :
+  invalid environment specified
+
 ##com.oracle.truffle.r.test.builtins.TestBuiltin_substitute.testSubstitute#
 #{ delayedAssign("expr", a * b) ; substitute(expr) }
 expr
@@ -125333,6 +125422,168 @@ attr(,"is.truffle.object")
 #{ library(grid); unit.c(unit(1,'mm'), unit(1,'mm')) }
 [1] 1mm 1mm
 
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), NA); a
+Error in substituteDirect(quote(x + 1), NA) :
+  invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), NULL); a
+Error in substituteDirect(quote(x + 1), NULL) :
+  invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), c(c(list(x=1)))); a
+1 + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), c(list(x=1), 'breakme')); a
+1 + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), c(list(x=1, 1))); a
+1 + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), list(1)); a
+x + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), list(c(c(list(x=1))))); a
+x + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), list(list(x=1))); a
+x + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), list(x=1)); a
+1 + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+1), list(y=1)); a
+x + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#a<-substituteDirect(quote(x+y), c(list(x=1), list(y=1))); a
+1 + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#f<-function() {}; substituteDirect(quote(x+1), frame=f)
+Error in substituteDirect(quote(x + 1), frame = f) :
+  invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(1, 1)
+Error in substituteDirect(1, 1) : invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(1, 1, 1)
+Error in substituteDirect(1, 1, 1) : invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(1, frame=NA)
+Error in substituteDirect(1, frame = NA) : invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(1, frame=NULL)
+Error in substituteDirect(1, frame = NULL) :
+  invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(NA, list(x=1))
+[1] NA
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(NULL, list(x=1))
+NULL
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(environment(), list(x=1))
+<environment: R_GlobalEnv>
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(object=1, frame=1)
+Error in substituteDirect(object = 1, frame = 1) :
+  invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(object=1, frame=1, cleanFunction=1)
+Error in substituteDirect(object = 1, frame = 1, cleanFunction = 1) :
+  invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(object=1, frame=c(list(1)))
+[1] 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(object=1, frame=list(c(list(1))))
+[1] 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(object=1, frame=list(list(1)))
+[1] 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), frame=environment())
+x + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), frame=setClass('a'))
+Error in substituteDirect(quote(x + 1), frame = setClass("a")) :
+  invalid list for substitution
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction='a')
+Error in cleanFunction && is.function(value) :
+  invalid 'x' type in 'x && y'
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=NA)
+1 + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=NULL)
+Error in cleanFunction && is.function(value) :
+  invalid 'x' type in 'x && y'
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=TRUE)
+1 + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=c('1'))
+Error in cleanFunction && is.function(value) :
+  invalid 'x' type in 'x && y'
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=c(1))
+1 + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=c(TRUE, 'breakme'))
+Error in cleanFunction && is.function(value) :
+  invalid 'x' type in 'x && y'
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=c(TRUE, FALSE))
+1 + 1
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=c(c(TRUE, 'breakme')))
+Error in cleanFunction && is.function(value) :
+  invalid 'x' type in 'x && y'
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=environment())
+Error in cleanFunction && is.function(value) :
+  invalid 'x' type in 'x && y'
+
+##com.oracle.truffle.r.test.library.methods.TestSubstituteDirect.basicTests#
+#substituteDirect(quote(x+1), list(x=1), cleanFunction=list(c(TRUE), 'breakme'))
+Error in cleanFunction && is.function(value) :
+  invalid 'x' type in 'x && y'
+
 ##com.oracle.truffle.r.test.library.stats.TestDistributions.testDensityFunctions#Output.MayIgnoreWarningContext#
 #dbeta(0, -1,  0.5)
 [1] NaN
@@ -134506,6 +134757,651 @@ B    5    8    4    7    6    2    6
 [2,]    2    0    0    1    0
 [3,]    1    2    3    2    3
 
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#Ignored.WrongCaller#
+#.Call(stats:::C_SplineCoef, 'abc', c(1:5), c(1:5))
+$method
+[1] NA
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+Warning message:
+NAs introduced by coercion
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, -1, c(1:5), c(1:5))
+$method
+[1] -1
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 0, c(1:5), c(1:5))
+$method
+[1] 0
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, NA, NA)
+$method
+[1] 1
+
+$n
+[1] 1
+
+$x
+[1] NA
+
+$y
+[1] NA
+
+$b
+[1] 0
+
+$c
+[1] 0
+
+$d
+[1] 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, NA, c(1:5))
+Error: inputs of different lengths
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, NULL, NULL)
+$method
+[1] 1
+
+$n
+[1] 0
+
+$x
+numeric(0)
+
+$y
+numeric(0)
+
+$b
+numeric(0)
+
+$c
+numeric(0)
+
+$d
+numeric(0)
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, NULL, c(1:5))
+Error: inputs of different lengths
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, c(1), c(1))
+$method
+[1] 1
+
+$n
+[1] 1
+
+$x
+[1] 1
+
+$y
+[1] 1
+
+$b
+[1] 0
+
+$c
+[1] 0
+
+$d
+[1] 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, c(1), list(1))
+$method
+[1] 1
+
+$n
+[1] 1
+
+$x
+[1] 1
+
+$y
+[1] 1
+
+$b
+[1] 0
+
+$c
+[1] 0
+
+$d
+[1] 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, c(1:5), NA)
+Error: inputs of different lengths
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, c(1:5), NULL)
+Error: inputs of different lengths
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, c(1:5), c(1:5))
+$method
+[1] 1
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, c(1:6), c(1:5, 1))
+$method
+[1] 1
+
+$n
+[1] 6
+
+$x
+[1] 1 2 3 4 5 6
+
+$y
+[1] 1 2 3 4 5 1
+
+$b
+[1] -2.1818182  1.9090909  0.5454545  1.9090909 -2.1818182 -2.1818182
+
+$c
+[1]  5.454545e+00 -1.363636e+00 -2.154731e-17  1.363636e+00 -5.454545e+00
+[6]  5.454545e+00
+
+$d
+[1] -2.2727273  0.4545455  0.4545455 -2.2727273  3.6363636 -2.2727273
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 1, list(1), c(1))
+$method
+[1] 1
+
+$n
+[1] 1
+
+$x
+[1] 1
+
+$y
+[1] 1
+
+$b
+[1] 0
+
+$c
+[1] 0
+
+$d
+[1] 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 111, c(1:5), c(1:5))
+$method
+[1] 111
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 2, c(1), c(1))
+$method
+[1] 2
+
+$n
+[1] 1
+
+$x
+[1] 1
+
+$y
+[1] 1
+
+$b
+[1] 0
+
+$c
+[1] 0
+
+$d
+[1] 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 2, c(1:5), c(1:5))
+$method
+[1] 2
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 1 1 1 1 1
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 3, c(1:5), c(1:5))
+$method
+[1] 3
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 1 1 1 1 1
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, 4, c(1:5), c(1:5))
+$method
+[1] 4
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, NA, c(1:5), c(1:5))
+$method
+[1] NA
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, NULL, c(1:5), c(1:5))
+$method
+[1] NA
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#Ignored.WrongCaller#
+#.Call(stats:::C_SplineCoef, c('a'), c(1), c(1))
+$method
+[1] NA
+
+$n
+[1] 1
+
+$x
+[1] 1
+
+$y
+[1] 1
+
+$b
+[1] 0
+
+$c
+[1] 0
+
+$d
+[1] 0
+
+Warning message:
+NAs introduced by coercion
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, c(), c(1:5), c(1:5))
+$method
+[1] NA
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, c(1), c(1:5), c(1:5))
+$method
+[1] 1
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, c(1, 2, 3), c(1), c(1))
+$method
+[1] 1
+
+$n
+[1] 1
+
+$x
+[1] 1
+
+$y
+[1] 1
+
+$b
+[1] 0
+
+$c
+[1] 0
+
+$d
+[1] 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, c(list()), c(1:5), c(1:5))
+$method
+[1] NA
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#Ignored.WrongCaller#
+#.Call(stats:::C_SplineCoef, environment(), c(1:5), c(1:5))
+$method
+[1] NA
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#Ignored.WrongCaller#
+#.Call(stats:::C_SplineCoef, function() {}, c(1:5), c(1:5))
+$method
+[1] NA
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#
+#.Call(stats:::C_SplineCoef, list(), c(1:5), c(1:5))
+$method
+[1] NA
+
+$n
+[1] 5
+
+$x
+[1] 1 2 3 4 5
+
+$y
+[1] 1 2 3 4 5
+
+$b
+[1] 0 0 0 0 0
+
+$c
+[1] 0 0 0 0 0
+
+$d
+[1] 0 0 0 0 0
+
+
+##com.oracle.truffle.r.test.library.stats.TestSplineFunctions.basicSplineCoef#Ignored.WrongCaller#
+#.Call(stats:::C_SplineCoef, list(1), c(1), c(1))
+$method
+[1] NA
+
+$n
+[1] 1
+
+$x
+[1] 1
+
+$y
+[1] 1
+
+$b
+[1] 0
+
+$c
+[1] 0
+
+$d
+[1] 0
+
+
 ##com.oracle.truffle.r.test.library.stats.TestStatFunctions.testFunctions21#Output.IgnoreWhitespace#
 #set.seed(1); dchisq(0, c(0.0653, 0.000123, 32e-80, 8833, 79e70, 0, -1), log=FALSE)
 [1] Inf Inf Inf   0   0 Inf NaN
@@ -137621,6 +138517,130 @@ Levels: 2147483648L
 #type.convert('NA', 1)
 Error in type.convert("NA", 1) : invalid 'na.strings' argument
 
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, NA, 'NA', FALSE, '.', 'allow.loss')
+Error: the first argument must be of mode character
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, NULL, 'NA', FALSE, '.', 'allow.loss')
+Error: the first argument must be of mode character
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', 'TRUE', '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', 'abc', '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', 1, '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', 2, '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', FALSE, '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', NA, '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', NULL, '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', c(), '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', c(NULL), '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', environment(), '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', function() {}, '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', list('abc'), '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), 'NA', list(), '.', 'allow.loss')
+[1] 1
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), NA, FALSE, '.', 'allow.loss')
+Error: invalid 'na.strings' argument
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), NULL, FALSE, '.', 'allow.loss')
+Error: invalid 'na.strings' argument
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), c(), FALSE, '.', 'allow.loss')
+Error: invalid 'na.strings' argument
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), c(1), FALSE, '.', 'allow.loss')
+Error: invalid 'na.strings' argument
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c('1'), environment(), FALSE, '.', 'allow.loss')
+Error: invalid 'na.strings' argument
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c(), 'NA', FALSE, '.', 'allow.loss')
+Error: the first argument must be of mode character
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c(1), c(1), FALSE, '.', 'allow.loss')
+Error: the first argument must be of mode character
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c(1, '1'), c(1), FALSE, '.', 'allow.loss')
+Error: invalid 'na.strings' argument
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c(1, 'TRUE'), c(1), FALSE, '.', 'allow.loss')
+Error: invalid 'na.strings' argument
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c(1, 'TRUE', 'x'), c(1), FALSE, '.', 'allow.loss')
+Error: invalid 'na.strings' argument
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c(1, 'x'), c(1), FALSE, '.', 'allow.loss')
+Error: invalid 'na.strings' argument
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, c(1, TRUE), c(1), FALSE, '.', 'allow.loss')
+Error: the first argument must be of mode character
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, environment(), 'NA', FALSE, '.', 'allow.loss')
+Error: the first argument must be of mode character
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, list('1'), list('1'), FALSE, '.', 'allow.loss')
+Error: the first argument must be of mode character
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, list('1'), list(1), FALSE, '.', 'allow.loss')
+Error: the first argument must be of mode character
+
+##com.oracle.truffle.r.test.library.utils.TestTypeConvert.typeConvertExternal2Test#
+#.External2(utils:::C_typeconvert, list(1), list(1), FALSE, '.', 'allow.loss')
+Error: the first argument must be of mode character
+
 ##com.oracle.truffle.r.test.library.utils.TestUtils.testHeadNTail#
 #{head(letters)}
 [1] "a" "b" "c" "d" "e" "f"
-- 
GitLab