Skip to content
Snippets Groups Projects
Commit 6b58d659 authored by Lukas Stadler's avatar Lukas Stadler
Browse files

enable passing tests

parent e507d26d
Branches
No related tags found
No related merge requests found
...@@ -19,7 +19,7 @@ public class TestBuiltin_Conj extends TestBase { ...@@ -19,7 +19,7 @@ public class TestBuiltin_Conj extends TestBase {
@Test @Test
public void testConj1() { public void testConj1() {
assertEval(Ignored.Unknown, "argv <- list(NA_complex_);Conj(argv[[1]]);"); assertEval("argv <- list(NA_complex_);Conj(argv[[1]]);");
} }
@Test @Test
...@@ -42,12 +42,12 @@ public class TestBuiltin_Conj extends TestBase { ...@@ -42,12 +42,12 @@ public class TestBuiltin_Conj extends TestBase {
@Test @Test
public void testConj5() { public void testConj5() {
assertEval(Ignored.Unknown, "argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Conj(argv[[1]]);"); assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Conj(argv[[1]]);");
} }
@Test @Test
public void testConj6() { public void testConj6() {
assertEval(Ignored.Unknown, "argv <- list(FALSE);Conj(argv[[1]]);"); assertEval("argv <- list(FALSE);Conj(argv[[1]]);");
} }
@Test @Test
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
* http://www.gnu.org/licenses/gpl-2.0.html * http://www.gnu.org/licenses/gpl-2.0.html
* *
* Copyright (c) 2014, Purdue University * Copyright (c) 2014, Purdue University
* Copyright (c) 2014, 2015, Oracle and/or its affiliates * Copyright (c) 2014, 2016, Oracle and/or its affiliates
* *
* All rights reserved. * All rights reserved.
*/ */
...@@ -19,8 +19,7 @@ public class TestBuiltin_allnames extends TestBase { ...@@ -19,8 +19,7 @@ public class TestBuiltin_allnames extends TestBase {
@Test @Test
public void testallnames1() { public void testallnames1() {
assertEval(Ignored.MissingBuiltin, assertEval("argv <- list(quote(y ~ ((g1) * exp((log(g2/g1)) * (1 - exp(-k * (x - Ta)))/(1 - exp(-k * (Tb - Ta)))))), FALSE, -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
"argv <- list(quote(y ~ ((g1) * exp((log(g2/g1)) * (1 - exp(-k * (x - Ta)))/(1 - exp(-k * (Tb - Ta)))))), FALSE, -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
} }
@Test @Test
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
* http://www.gnu.org/licenses/gpl-2.0.html * http://www.gnu.org/licenses/gpl-2.0.html
* *
* Copyright (c) 2014, Purdue University * Copyright (c) 2014, Purdue University
* Copyright (c) 2014, 2015, Oracle and/or its affiliates * Copyright (c) 2014, 2016, Oracle and/or its affiliates
* *
* All rights reserved. * All rights reserved.
*/ */
...@@ -20,7 +20,7 @@ public class TestBuiltin_allvars extends TestBase { ...@@ -20,7 +20,7 @@ public class TestBuiltin_allvars extends TestBase {
@Test @Test
public void testallvars1() { public void testallvars1() {
assertEval(Ignored.Unknown, "argv <- structure(list(expr = expression(quote(temp[1, ] ~ 3))), .Names = 'expr');do.call('all.vars', argv)"); assertEval("argv <- structure(list(expr = expression(quote(temp[1, ] ~ 3))), .Names = 'expr');do.call('all.vars', argv)");
} }
} }
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
* http://www.gnu.org/licenses/gpl-2.0.html * http://www.gnu.org/licenses/gpl-2.0.html
* *
* Copyright (c) 2014, Purdue University * Copyright (c) 2014, Purdue University
* Copyright (c) 2014, 2015, Oracle and/or its affiliates * Copyright (c) 2014, 2016, Oracle and/or its affiliates
* *
* All rights reserved. * All rights reserved.
*/ */
...@@ -19,7 +19,7 @@ public class TestBuiltin_body extends TestBase { ...@@ -19,7 +19,7 @@ public class TestBuiltin_body extends TestBase {
@Test @Test
public void testbody1() { public void testbody1() {
assertEval(Ignored.Unknown, "argv <- list(function (x, y) { c(x, y)}); .Internal(body(argv[[1]]))"); assertEval("argv <- list(function (x, y) { c(x, y)}); .Internal(body(argv[[1]]))");
} }
@Test @Test
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
* http://www.gnu.org/licenses/gpl-2.0.html * http://www.gnu.org/licenses/gpl-2.0.html
* *
* Copyright (c) 2012-2014, Purdue University * Copyright (c) 2012-2014, Purdue University
* Copyright (c) 2013, 2015, Oracle and/or its affiliates * Copyright (c) 2013, 2016, Oracle and/or its affiliates
* *
* All rights reserved. * All rights reserved.
*/ */
...@@ -34,7 +34,7 @@ public class TestBuiltin_rep extends TestBase { ...@@ -34,7 +34,7 @@ public class TestBuiltin_rep extends TestBase {
@Test @Test
public void testrep4() { public void testrep4() {
assertEval(Ignored.Unknown, "argv <- list(list(), 0L); .Internal(rep_len(argv[[1]], argv[[2]]))"); assertEval("argv <- list(list(), 0L); .Internal(rep_len(argv[[1]], argv[[2]]))");
} }
@Test @Test
...@@ -54,7 +54,7 @@ public class TestBuiltin_rep extends TestBase { ...@@ -54,7 +54,7 @@ public class TestBuiltin_rep extends TestBase {
@Test @Test
public void testrep8() { public void testrep8() {
assertEval(Ignored.Unknown, "argv <- list(list(c(' ', ' ')), 1L); .Internal(rep_len(argv[[1]], argv[[2]]))"); assertEval("argv <- list(list(c(' ', ' ')), 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
} }
@Test @Test
......
...@@ -264,7 +264,7 @@ public class TestEnvironments extends TestBase { ...@@ -264,7 +264,7 @@ public class TestEnvironments extends TestBase {
assertEval("{ ph <- new.env() ; h <- new.env(parent=ph) ; assign(\"x\", 10, h, inherits=TRUE) ; x }"); assertEval("{ ph <- new.env() ; h <- new.env(parent=ph) ; assign(\"x\", 10, h, inherits=TRUE) ; x }");
// Requires generic specialization // Requires generic specialization
assertEval(Ignored.Unknown, Output.ContainsError, "{ as.environment(as.environment) }"); assertEval("{ as.environment(as.environment) }");
} }
@Test @Test
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment