tests/testthat/test-lenhgt.R

In lenght: Allow Misspellings of Length Function

test_that("lenhgt matches base::length for getting length of double", {
  expect_equal(lenhgt(base::diag(4)),  base::length(base::diag(4)))
  expect_equal(lenhgt(base::diag(0)),  base::length(base::diag(0)))
})

test_that("lenhgt matches base::length for getting length of options()", {
  expect_equal(lenhgt(base::options()),  base::length(base::options()))
})

test_that("lenhgt matches base::length for getting length of formula", {
  expect_equal(lenhgt(y ~ x1 + x2 + x3),  base::length(y ~ x1 + x2 + x3))
  expect_equal(lenhgt(y ~ .),  base::length(y ~ .))
})

test_that("lenhgt matches base::length for getting length of expression", {
  expect_equal(lenhgt(expression(x, {y <- x^2; y+2}, x^y)),
               base::length(expression(x, {y <- x^2; y+2}, x^y)))
  expect_equal(lenhgt(expression()), base::length(expression()))
})