tests/testthat/test-get_win_matrix.R

In andreyrisukhin/ntdice: Simulate, Visualize, And Generate Non-Transitive Dice

dice_set_a <- list(c(1, 2, 3, 4, 5, 6), c(1, 2, 3, 4, 5, 6))
dice_set_b <- c(1, 2, 3, 4, 5, 6)
dice_set_c <- list(c(1, 2, 3, 4, 5, 6))
dice_set_d <- "Should be a list of vector"

dice_ids_a <- c("Dice One")
dice_ids_b <- c("Dice One", "Dice Two")
dice_ids_c <- "should be vector"
dice_ids_d <- c()
dice_ids_e <- seq(1,2,1)

test_that("lengths of dice_set, dice_ids must match", {
  expect_error(get_win_matrix(dice_set_a, dice_ids_a))
})

test_that("dice_set should be a list of vectors", {
  expect_error(get_win_matrix(dice_set_d, dice_ids_a))
})

test_that("dice_set should represent at least two dice", {
  expect_error(get_win_matrix(dice_set_c, dice_ids_a))
})

test_that("get_win_matrix should return a dataframe coded as a list", {
  expect_type(get_win_matrix(dice_set_a, dice_ids_b), "list")
})

# Todo: Check returned dataframe dimensions make sense