From 9d65ebef45fd348c9a4eec0e3801f6ab08e8fb93 Mon Sep 17 00:00:00 2001
From: Zbynek Slajchrt <zbynek.slajchrt@oracle.com>
Date: Mon, 29 Aug 2016 12:02:46 +0200
Subject: [PATCH] Tests output updated
---
.../truffle/r/test/ExpectedTestOutput.test | 32 ++++++++++++++++++-
1 file changed, 31 insertions(+), 1 deletion(-)
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 6f75cbbf76..5168027358 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
@@ -802,7 +802,7 @@ $pivot
Intercept -0.2236068 -0.6708204
X 0.0000000 0.4472136
-##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testLa3
+##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testLa3a
#argv <- list(structure(c(-21.2222451396881, 306.936914624821, 0, 0, 0, -101.353437863947, -21.2222451396881, 0, 0, 0, 45.8768670002026, 63.2672432400162, -11.7486843755171, 0, 0, 65.1621918666428, 125.787781278037, -111.869521123473, 61.0965873274467, -54.389932439947, -26.0785375270079, -209.347244886481, 112.817924425406, 108.385517228532, 61.0965873274467), .Dim = c(5L, 5L), .Dimnames = list(NULL, NULL)), FALSE); .Internal(La_rg(argv[[1]], argv[[2]]))
$values
[1] -21.22225+176.37775i -21.22225-176.37775i -11.74868+ 0.00000i
@@ -823,6 +823,16 @@ $vectors
[5,] 0.3297248-0.0460577i 0.3297248+0.0460577i
+##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testLa3b
+#argv <- list(structure(c(-21.2222451396881, 306.936914624821, 0, 0, 0, -101.353437863947, -21.2222451396881, 0, 0, 0, 45.8768670002026, 63.2672432400162, -11.7486843755171, 0, 0, 65.1621918666428, 125.787781278037, -111.869521123473, 61.0965873274467, -54.389932439947, -26.0785375270079, -209.347244886481, 112.817924425406, 108.385517228532, 61.0965873274467), .Dim = c(5L, 5L), .Dimnames = list(NULL, NULL)), TRUE); .Internal(La_rg(argv[[1]], argv[[2]]))
+$values
+[1] -21.22225+176.37775i -21.22225-176.37775i -11.74868+ 0.00000i
+[4] 61.09659+ 76.77943i 61.09659- 76.77943i
+
+$vectors
+NULL
+
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testLa4
#argv <- list('S', structure(c(1, 0, 0, 0, 0, 1.4142135623731, 0, 0, 0, 0, 1.73205080756888, 0, 0, 0, 0, 2), .Dim = c(4L, 4L), Dimnames = list(character(0), character(0))), c(2, 1.73205080756888, 1.4142135623731, 1), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L)), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))
$d
@@ -947,6 +957,18 @@ $vt
[14,] 2.934442e-02 0.0499572846 -2.117797e-02 1.755687e-01 1.567252e-01
[15,] 1.370608e-03 0.0972526870 -4.824705e-02 1.567252e-01 2.687664e-01
+##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testMisc
+#{ .Internal(La_solve(structure(c(2,1)), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)), 2.22044604925031e-16)) }
+Error: 'a' must be a numeric matrix
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testMisc
+#{ .Internal(La_solve(structure(c(2,1), .Dim = c(2,1)), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)), 2.22044604925031e-16)) }
+Error: 'a' (2 x 1) must be square
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testMisc
+#{ .Internal(La_solve(structure(numeric(0), .Dim = c(0,0)), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)), 2.22044604925031e-16)) }
+Error: 'a' is 0-diml
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testMisc
#{ x<-matrix(1:4, ncol=2); solve(x) }
[,1] [,2]
@@ -28189,6 +28211,14 @@ Error in eval(expr, envir, enclos) : object 'y' not found
#{ log(c(0,1)) }
[1] -Inf 0
+##com.oracle.truffle.r.test.builtins.TestBuiltin_log.testLog
+#{ log(c(2,3), 0/0) }
+[1] NaN NaN
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_log.testLog
+#{ log(c(2,3), NA) }
+[1] NA NA
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_log.testLog
#{ round( log(10,), digits = 5 ) }
[1] 2.30259
--
GitLab