tests/testthat/test-generate_random_pairs.R

names <- c('Jack', 'Matt', 'George', 'Simon', 'Craig', 'Fred')
names_wrong <- data.frame(P1=c('Jack', 'Matt', 'George'), P2=c('Simon', 'Craig', 'Fred'))
uwp <- data.frame(P1='Jack', P2='Matt')

test_that("generate_random_pairs", {
  expect_equal(2 * 2, 4)
})
moj-analytical-services/coffee_roulette_pairs documentation built on Aug. 6, 2022, 3:36 a.m.