tests/testthat/test_sim_dps.R

In cphaarmeyer/warlockr: Classic WoW Warlock Related Stuff

context("sim_dps")


test_that("sim_dps works as expected", {
  stats <- list(int = 277, sp = 346, crit = 2, hit = 2, mp5 = 8)
  seed <- sample_seed()
  mat <- sim_dps(stats, iter = 1000, seed = seed)
  mat_toep <- sim_dps(stats, iter = 1000, seed = seed, trinkets = "toep")
  mat_toep_zhc <- sim_dps(stats,
    iter = 1000, seed = seed, trinkets = c("toep", "zhc")
  )

  expect_equal(dim(mat), c(1000, 4))
  expect_type(mat, "double")
  expect_true(all(mat >= 0))
  expect_true(all(mat_toep[, 4] >= mat[, 4]))
  expect_true(all(mat_toep_zhc[, 4] >= mat[, 4]))
})