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

Added tests for squeeze

Browse source
This commit is contained in:
Waldir Leoncio 2020-07-14 11:18:11 +02:00
parent a27f303f4a
commit c2bbe701be
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -179,3 +179,13 @@ test_that("blanks works as expected", {
expect_equal(blanks(1), " ") expect_equal(blanks(1), " ")
expect_equal(blanks(10), " ") expect_equal(blanks(10), " ")
}) })
test_that("squeeze works as expected", {
A <- array(dim = c(2, 1, 2))
A[, , 1] <- c(1, 2)
A[, , 2] <- c(3, 4)
expect_equal(squeeze(A), matrix(1:4, 2))
A <- array(0, dim = c(1, 1, 3))
A[, , 1:3] <- 1:3
expect_equal(squeeze(A), matrix(1:3, 3))
})