tests/testthat/test-utils.R

In neuroconductor-devel-releases/eegUtils: A collection of utilities for EEG analysis

context("Test utils.R")

cond_labs_l <- "Light"
cond_labs_nl <- "No light"
cond_labs_lsf <- "LSF"
cond_labs_l_lsf <- "Light/LSF"
cond_labs_sf <- c("HSF", "LSF")
cond_labs_mix <- c("HSF", "Match/LSF")

orig_labs <- c("Light/HSF", "Light/LSF", "No light/HSF", "No light/LSF")


test_that("Label checking", {
  expect_true(label_check(cond_labs_l, orig_labs))
  expect_true(label_check(cond_labs_nl, orig_labs))
  expect_true(label_check(cond_labs_lsf, orig_labs))
  expect_true(label_check(cond_labs_l_lsf, orig_labs))
  expect_true(all(label_check(cond_labs_sf, orig_labs)))
  expect_error(label_check(cond_labs_mix, orig_labs))
})