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

enable passing tests

parent 12d947bb
No related branches found
No related tags found
No related merge requests found
......@@ -185,7 +185,7 @@ public class TestBuiltin_identical extends TestBase {
@Test
public void testidentical35() {
assertEval(Ignored.Unknown, "argv <- structure(list(x = expression(exp(-0.5 * u^2)), y = expression(exp(-0.5 * u^2))), .Names = c('x', 'y'));do.call('identical', argv)");
assertEval("argv <- structure(list(x = expression(exp(-0.5 * u^2)), y = expression(exp(-0.5 * u^2))), .Names = c('x', 'y'));do.call('identical', argv)");
}
@Test
......
......@@ -880,8 +880,7 @@ public class TestBuiltin_operators extends TestBase {
@Test
public void testoperators171() {
assertEval(Ignored.Unknown,
"argv <- list(structure(c(1960.08433333333, 1960.16766666667, 1960.251, 1960.33433333333, 1960.41766666667, 1960.501, 1960.58433333333, 1960.66766666667, 1960.751, 1960.83433333333, 1960.91766666667, 1961.001, 1961.08433333333, 1961.16766666667, 1961.251, 1961.33433333333, 1961.41766666667, 1961.501, 1961.58433333333, 1961.66766666667), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), 1);`%%`(argv[[1]],argv[[2]]);");
assertEval("argv <- list(structure(c(1960.08433333333, 1960.16766666667, 1960.251, 1960.33433333333, 1960.41766666667, 1960.501, 1960.58433333333, 1960.66766666667, 1960.751, 1960.83433333333, 1960.91766666667, 1961.001, 1961.08433333333, 1961.16766666667, 1961.251, 1961.33433333333, 1961.41766666667, 1961.501, 1961.58433333333, 1961.66766666667), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), 1);`%%`(argv[[1]],argv[[2]]);");
}
@Test
......
......@@ -130,11 +130,11 @@ public class TestMiscBuiltins extends TestBase {
@Test
public void testLowerTriangular() {
assertEval(Ignored.Unknown, "{ m <- matrix(1:6, nrow=2) ; lower.tri(m, diag=TRUE) }");
assertEval(Ignored.Unknown, "{ m <- matrix(1:6, nrow=2) ; lower.tri(m, diag=FALSE) }");
assertEval("{ m <- matrix(1:6, nrow=2) ; lower.tri(m, diag=TRUE) }");
assertEval("{ m <- matrix(1:6, nrow=2) ; lower.tri(m, diag=FALSE) }");
assertEval(Ignored.Unknown, "{ lower.tri(1:3, diag=TRUE) }");
assertEval(Ignored.Unknown, "{ lower.tri(1:3, diag=FALSE) }");
assertEval("{ lower.tri(1:3, diag=TRUE) }");
assertEval("{ lower.tri(1:3, diag=FALSE) }");
}
@Test
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment