From 3a406ce9066eb8e670e2d261a1b93f563fb80597 Mon Sep 17 00:00:00 2001
From: Michael Haupt <michael.haupt@oracle.com>
Date: Tue, 11 Nov 2014 16:26:56 +0100
Subject: [PATCH] corrections in (ignored) tests
---
.../com/oracle/truffle/r/test/simple/TestSimpleBuiltins.java | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleBuiltins.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleBuiltins.java
index 1a6704c9dd..3c144f666c 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleBuiltins.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleBuiltins.java
@@ -4027,10 +4027,9 @@ public class TestSimpleBuiltins extends TestBase {
@Test
@Ignore
public void testSplitIgnore() {
- // requires as.double support for factors
- assertEval("{ n <- 2; nn <- 4 ; g <- factor(round(n * runif(n * nn))) ; x <- rnorm(n * nn) + sqrt(as.numeric(g)) ; xg <- split(x, g) ; xg }");
- // requires first-class levels access in factors
+ // these require first-class levels access in factors
assertEval("{ fu <- c(\"a\",\"b\") ; split(1:8,fu) }");
+ assertEval("{ g <- factor(round(c(0.4,1.3,0.6,1.8,2.5,4.1,2.2,1.0))) ; x <- c(0.1,3.2,1,0.6,1.9,3.3,1.6,1.7) + sqrt(as.numeric(g)) ; xg <- split(x, g) ; xg }");
}
@Test
--
GitLab