tests/testthat/test_load_wrong_GGIRconfig.R

In habitus-eu/HabitusGUI: R Shiny App for Processing Behavioural Data

options("sp_evolution_status" = 2)
library(HabitusGUI)
context("Identify wrong files loaded as GGIR config files")
test_that("Wrong GGIR config files trigger a message and a sample config.csv file is created and used", {
  
  # Load a csv file that is not a GGIR config file ----
  ggir_config_wrong_csv = system.file("testfiles_hbGIS/config_hbGIS.csv", package = "HabitusGUI")[1]
  check = checkConfigFile(file = ggir_config_wrong_csv, tool = "GGIR")
  
  # test there is an error message
  expect_equal(length(check), 1)
  expect_equal(check, "The csv file uploaded is not a GGIR config file")
})