max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Added base Matlab function

Browse source
This commit is contained in:
Waldir Leoncio 2020-03-18 08:25:50 +01:00
parent e5cf85d9d4
commit 4c4390f419
3 changed files with 45 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tests/testthat/test-convertedBaseFunctions.R
View file

@ -128,4 +128,19 @@ test_that("strcmp works as expected", {
expect_equivalent(strcmp(s1, s3), c(FALSE, TRUE, FALSE, FALSE))
expect_error(strcmp(s2, s3))
expect_equal(strcmp(s4, s5), matrix(c(FALSE, TRUE, FALSE, TRUE), 2))
})
test_that("isempty works as expected", {
A <- array(dim=c(0, 2, 2))
B <- matrix(rep(NA, 4), 2)
C <- matrix(rep(0, 4), 2)
cat1 <- as.factor(c(NA, NA))
cat2 <- as.factor(c())
str1 <- matrix(rep("", 3))
expect_true(isempty(A))
expect_false(isempty(B))
expect_false(isempty(C))
expect_false(isempty(cat1))
expect_true(isempty(cat2))
expect_false(isempty(str1))
})