test_that("osterReg basic run", {
  skip_if_not_installed("lfe")
  data <- data.frame(y = rnorm(100), x = rnorm(100), z = rnorm(100), cluster = rep(1:10, each = 10))
  out <- osterReg("felm", "y", "x", "z", NULL, "cluster", data)
  expect_true("beta_tilde" %in% names(out))
})