tests/testthat/test_compare_equip.R

In cphaarmeyer/warlockr: Classic WoW Warlock Related Stuff

context("compare_equip")


test_that("compare_equip works as expected", {
  my_stats <- list(
    int = 213 + 31 + 12,
    sp = 360 + 119 + 40,
    crit = 4,
    hit = 1
  )
  my_equip <- list(
    head = list(int = 16, sp = 32),
    neck = list(int = 9, hit = 1),
    shoulders = list(sp = 26),
    back = list(sp = 18),
    chest = list(sp = 46),
    wrist = list(int = 11, sp = 13),
    hands = list(sp = 33),
    waist = list(int = 8, sp = 25, crit = 1),
    legs = list(int = 16, sp = 39),
    feet = list(int = 9, sp = 27),
    finger1 = list(int = 7, sp = 18),
    finger2 = list(int = 6, sp = 33),
    trinket1 = "toep",
    trinket2 = list(sp = 29),
    weapon = list(int = 12, sp = 60, crit = 1),
    wand = list(int = 4, sp = 11)
  )
  my_changes <- list(
    "New Weapon" = list(weapon = list(int = 29, sp = 84, crit = 2)),
    "New Rings" = list(
      finger1 = list(int = 10, sp = 11, hit = 1),
      finger2 = list(int = 13, sp = 6, hit = 2, mp5 = 4)
    ),
    "New Neck" = list(neck = list(int = 7, sp = 34)),
    "No Talisman" = list(trinket1 = list())
  )
  df <- compare_equip(my_stats, my_equip, my_changes, iter = 1000)

  expect_s3_class(df, "data.frame")
  expect_named(df, c("dps", "diff", "slot"))
  expect_equal(rownames(df), c("current", names(my_changes)))
  expect_gt(df[[1, 2]], df[[5, 2]])
  expect_identical(df[[1, 3]], "")
  verify_output(
    test_path("test_compare_equip.txt"),
    compare_equip(my_stats, my_equip, my_changes, iter = 1000, seed = 42)
  )
})