tests/testthat/test_bertin.R

In markheckmann/OpenRepGrid: Tools to Analyze Repertory Grid Data

library(vdiffr)

test_that("bertin works", {
  expect_doppelganger("bertin", bertin(feixas2004))

  create_bertinCluster <- function() {
    set.seed(0)
    suppressMessages(h <- bertinCluster(feixas2004)) # ward -> ward.D message
  }
  expect_doppelganger("bertinCluster", create_bertinCluster)
})