test_that("sim_values returns values > 50", {
  result <- sim_values("age", "age > 50", n = 5)
  expect_true(all(result > 50))
})