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

Translated cell(), added tests

Browse source
This commit is contained in:
Waldir Leoncio 2020-06-24 16:07:13 +02:00
parent 862a91febc
commit 31aeb99257
3 changed files with 41 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -161,3 +161,11 @@ test_that("sortrows works as expected", {
expect_equal(sortrows(mx, 2), matrix(c(2, 3, 1, 2, 0, 1, pi, 10), 4))
expect_equal(sortrows(mx, 1:2), mx[order(mx[, 1], mx[, 2]), ])
})
test_that("cell works as expected", {
expect_equal(cell(0), array(dim = c(0, 0)))
expect_equal(cell(1), array(dim = c(1, 1)))
expect_equal(cell(2), array(dim = c(2, 2)))
expect_equal(cell(3, 4), array(dim = c(3, 4)))
expect_equal(cell(5, 7, 6), array(dim = c(5, 7, 6)))
})