Tests output updated

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