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 7e79b7ee32e59954bd88e49ce5d201c40ccdfd05..7a3778a1f221e4af10af114fbdb684b8d26a66c4 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 @@ -8839,17 +8839,6 @@ NULL #{x <- 10;class(x) <- c("a", "b");inherits(x, c("c", "q", "b"), TRUE) ;} [1] 0 0 2 -##com.oracle.truffle.r.test.simple.TestSimpleBuiltins.testInteraction -#{ a <- gl(2, 4, 8) ; b <- gl(2, 2, 8, labels = c("ctrl", "treat")) ; interaction(a, b) } -[1] 1.ctrl 1.ctrl 1.treat 1.treat 2.ctrl 2.ctrl 2.treat 2.treat -Levels: 1.ctrl 2.ctrl 1.treat 2.treat - -##com.oracle.truffle.r.test.simple.TestSimpleBuiltins.testInteraction -#{ a <- gl(2, 4, 8) ; b <- gl(2, 2, 8, labels = c("ctrl", "treat")) ; s <- gl(2, 1, 8, labels = c("M", "F")) ; interaction(a, b, s, sep = ":") } -[1] 1:ctrl:M 1:ctrl:F 1:treat:M 1:treat:F 2:ctrl:M 2:ctrl:F 2:treat:M -[8] 2:treat:F -8 Levels: 1:ctrl:M 2:ctrl:M 1:treat:M 2:treat:M 1:ctrl:F ... 2:treat:F - ##com.oracle.truffle.r.test.simple.TestSimpleBuiltins.testInvisible #{ f <- function() { invisible(23) } ; f() } diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/all/AllTests.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/all/AllTests.java index 3546d4f0fb34d477391964a3af346ae9aed0c00e..94c579085d0aa95d7aa768a6e92d37e335eb5cae 100644 --- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/all/AllTests.java +++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/all/AllTests.java @@ -13799,13 +13799,13 @@ public class AllTests extends TestBase { } @Test - public void TestSimpleBuiltins_testSplitIgnore_d2ccf1c31b984c75491ff8fbb39ab104() { - 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 }"); + public void TestSimpleBuiltins_testSplitIgnore_4e3d6c8535597da99914e35ab11a6947() { + assertEval("{ fu <- c(\"a\",\"b\") ; split(1:8,fu) }"); } @Test - public void TestSimpleBuiltins_testSplitIgnore_4e3d6c8535597da99914e35ab11a6947() { - assertEval("{ fu <- c(\"a\",\"b\") ; split(1:8,fu) }"); + public void TestSimpleBuiltins_testSplitIgnore_bb711f5c27cbd7b60881617bc02fb801() { + 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 diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/failing/FailingTests.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/failing/FailingTests.java index 1a4675db3df8e3ba56e6370010ae5dc99deb7770..e3af4fe5504b660cccd2a4ceb3d0b0ed2d6c5925 100644 --- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/failing/FailingTests.java +++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/failing/FailingTests.java @@ -798,6 +798,16 @@ public class FailingTests extends TestBase { assertEval("{x <- 10;class(x) <- c(\"a\", \"b\");inherits(x, \"a\", 1) ;}"); } + @Ignore + public void TestSimpleBuiltins_testInteraction_cc946aa5f7a0393338bf3a58fefb26a7() { + assertEval("{ a <- gl(2, 4, 8) ; b <- gl(2, 2, 8, labels = c(\"ctrl\", \"treat\")) ; interaction(a, b) }"); + } + + @Ignore + public void TestSimpleBuiltins_testInteraction_f0540e2d1f6d9ab64d558ef96133818f() { + assertEval("{ a <- gl(2, 4, 8) ; b <- gl(2, 2, 8, labels = c(\"ctrl\", \"treat\")) ; s <- gl(2, 1, 8, labels = c(\"M\", \"F\")) ; interaction(a, b, s, sep = \":\") }"); + } + @Ignore public void TestSimpleBuiltins_testInvisibleIgnore_d73dc3df8036b77c171c3b1e3e6abe2b() { assertEval("{ f <- function(x, r) { if (x) invisible(r) else r }; f(TRUE, 1) }"); @@ -1559,13 +1569,13 @@ public class FailingTests extends TestBase { } @Ignore - public void TestSimpleBuiltins_testSplitIgnore_d2ccf1c31b984c75491ff8fbb39ab104() { - 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 }"); + public void TestSimpleBuiltins_testSplitIgnore_4e3d6c8535597da99914e35ab11a6947() { + assertEval("{ fu <- c(\"a\",\"b\") ; split(1:8,fu) }"); } @Ignore - public void TestSimpleBuiltins_testSplitIgnore_4e3d6c8535597da99914e35ab11a6947() { - assertEval("{ fu <- c(\"a\",\"b\") ; split(1:8,fu) }"); + public void TestSimpleBuiltins_testSplitIgnore_bb711f5c27cbd7b60881617bc02fb801() { + 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 }"); } @Ignore diff --git a/mx.fastr/copyrights/gnu_r_splines.copyright.star b/mx.fastr/copyrights/gnu_r_splines.copyright.star new file mode 100644 index 0000000000000000000000000000000000000000..c50cd476299ef59a5eb1e7557038c8bb5d65453b --- /dev/null +++ b/mx.fastr/copyrights/gnu_r_splines.copyright.star @@ -0,0 +1,11 @@ +/* + * This material is distributed under the GNU General Public License + * Version 2. You may review the terms of this license at + * http://www.gnu.org/licenses/gpl-2.0.html + * + * Copyright (C) 1995, 1996 Robert Gentleman and Ross Ihaka + * Copyright (C) 1998--2012 The R Core Team + * Copyright (c) 2014, 2014, Oracle and/or its affiliates + * + * All rights reserved. + */ diff --git a/mx.fastr/copyrights/gnu_r_splines.copyright.star.regex b/mx.fastr/copyrights/gnu_r_splines.copyright.star.regex new file mode 100644 index 0000000000000000000000000000000000000000..651a938bdbef36c65295b96975324fea0fd4ac3b --- /dev/null +++ b/mx.fastr/copyrights/gnu_r_splines.copyright.star.regex @@ -0,0 +1 @@ +/\*\n \* This material is distributed under the GNU General Public License\n \* Version 2. You may review the terms of this license at\n \* http://www.gnu.org/licenses/gpl-2.0.html\n \*\n \* Copyright \(C\) 1995, 1996 Robert Gentleman and Ross Ihaka\n \* Copyright \(C\) 1998--2012 The R Core Team\n \* Copyright \(c\) (?:(20[0-9][0-9]), )?(20[0-9][0-9]), Oracle and/or its affiliates\n \*\n \* All rights reserved.\n \*/\n.* diff --git a/mx.fastr/copyrights/overrides b/mx.fastr/copyrights/overrides index 6ac47a08e131939ad2457537ccd4b71f1dce69da..c8a5f7f3dc258ae434b0b9ba0aebaedaf9f8702b 100644 --- a/mx.fastr/copyrights/overrides +++ b/mx.fastr/copyrights/overrides @@ -65,6 +65,7 @@ com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/S com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Format.java,gnu_r.copyright com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/stats/Qgamma.java,gnu_r_qgamma.copyright com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/stats/Rnorm.java,gnu_r.copyright +com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/stats/SplineFunctions.java,gnu_r_splines.copyright com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/stats/StatsUtil.java,gnu_r_statsutil.copyright com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/utils/CountFields.java,gnu_r.copyright com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/utils/CountFields.java,gnu_r.copyright