test_that("price_option_mc returns positive price and std error", {
  res <- price_option_mc(100, 100, 0.02, 0.2, T = 1, n_sims = 5000)
  expect_true(res$price > 0)
  expect_true(res$std_error > 0)
})

test_that("price_option_binomial returns finite price", {
  price <- price_option_binomial(100, 100, 0.02, 0.2, T = 1, n_steps = 100)
  expect_true(is.finite(price))
})