tests/testthat/test-weigh.R

In butcher: Model Butcher

test_that("weigh() recursively measures size of each object component", {
  simulate_x <- matrix(runif(1e+6), ncol = 2)
  simulate_y <- runif(dim(simulate_x)[1])
  lm_out <- lm(simulate_y ~ simulate_x)
  object_sizes <- weigh(lm_out)
  expect_equal(dim(object_sizes)[2], 2)
  expect_gt(round(object_sizes$size[1]), 44) # TODO: write a smarter test
})


test_that("checking internal lm_fit test object", {
  skip_on_cran()
  lm_fit <- lm(mpg ~ ., data = mtcars)
  expect_equal(dim(weigh(lm_fit, 0))[1], 25)
})