tests/testthat/test-general.R

In dendextend: Extending 'dendrogram' Functionality in R

# library(testthat)
# library(dendextend)

context("General functions")


test_that("all.unique works", {
  expect_true(all_unique(c(1:10)))
  expect_true(all_unique(c(1, 3, 2)))
  expect_false(all_unique(c(1, 1, 2)))
  expect_false(all_unique(c(1:5, 1, 1)))
})