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 02140bc48ad0656837f20a4b0fdff81bdbb4ca94..1c56e534ad751e61702366daa9a7c401b0e89db4 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 @@ -636,11 +636,11 @@ Error: no slot of name "foo" for this object of class "classRepresentation" #{ getClass("ClassUnionRepresentation")@virtual } [1] FALSE -##com.oracle.truffle.r.test.S4.TestS4.testSlotAccess# +##com.oracle.truffle.r.test.S4.TestS4.testSlotAccess#Ignored.ImplementationError# #{ setClass("foo", contains="numeric"); x<-new("foo"); res<-slot(x, ".Data"); removeClass("foo"); res } numeric(0) -##com.oracle.truffle.r.test.S4.TestS4.testSlotAccess# +##com.oracle.truffle.r.test.S4.TestS4.testSlotAccess#Ignored.ImplementationError# #{ setClass("foo", contains="numeric"); x<-new("foo"); res<-x@.Data; removeClass("foo"); res } numeric(0) @@ -69343,7 +69343,32 @@ $`can write` ##com.oracle.truffle.r.test.builtins.TestBuiltin_svd.testSvd# -# +#{ hilbert <- function(n) { i <- 1:n; 1 / outer(i - 1, i, '+') }; X <- hilbert(9)[, 1:6]; svd(X) } +$d +[1] 1.668433e+00 2.773727e-01 2.223722e-02 1.084693e-03 3.243788e-05 +[6] 5.234864e-07 + +$u + [,1] [,2] [,3] [,4] [,5] [,6] + [1,] -0.7244999 0.6265620 0.27350003 -0.08526902 0.02074121 -0.00402455 + [2,] -0.4281556 -0.1298781 -0.64293597 0.55047428 -0.27253421 0.09281592 + [3,] -0.3121985 -0.2803679 -0.33633240 -0.31418014 0.61632113 -0.44090375 + [4,] -0.2478932 -0.3141885 -0.06931246 -0.44667149 0.02945426 0.53011986 + [5,] -0.2063780 -0.3140734 0.10786005 -0.30241655 -0.35566839 0.23703838 + [6,] -0.1771408 -0.3026808 0.22105904 -0.09041508 -0.38878613 -0.26044927 + [7,] -0.1553452 -0.2877310 0.29280775 0.11551327 -0.19285565 -0.42094482 + [8,] -0.1384280 -0.2721599 0.33783778 0.29312535 0.11633231 -0.16079025 + [9,] -0.1248940 -0.2571250 0.36542543 0.43884649 0.46496714 0.43459954 + +$v + [,1] [,2] [,3] [,4] [,5] [,6] +[1,] -0.7364928 0.6225002 0.2550021 -0.06976287 0.01328234 -0.001588146 +[2,] -0.4432826 -0.1818705 -0.6866860 0.50860089 -0.19626669 0.041116974 +[3,] -0.3274789 -0.3508553 -0.2611139 -0.50473697 0.61605641 -0.259215626 +[4,] -0.2626469 -0.3921783 0.1043599 -0.43747940 -0.40833605 0.638901622 +[5,] -0.2204199 -0.3945644 0.3509658 0.01612426 -0.46427916 -0.675826789 +[6,] -0.1904420 -0.3831871 0.5110654 0.53856351 0.44663632 0.257248908 + ##com.oracle.truffle.r.test.builtins.TestBuiltin_sweep.testSweep# #{ A <- matrix(1:15, ncol=5); sweep(A, 2, colSums(A), "/") } diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_svd.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_svd.java index da1e248ef6ac3e09c9aa484dab195b0a461df35d..5b7593240d71c52d5eb48546508d2b284c3f7fef 100644 --- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_svd.java +++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_svd.java @@ -32,6 +32,6 @@ public class TestBuiltin_svd extends TestBase { @Test public void testSvd() { - assertEval("{ hilbert <- function(n) { i <- 1:n; 1 / outer(i - 1, i, '+') }; X <- hilbert(9)[, 1:6]; svd(X)"); + assertEval("{ hilbert <- function(n) { i <- 1:n; 1 / outer(i - 1, i, '+') }; X <- hilbert(9)[, 1:6]; svd(X) }"); } }