tests/testthat/test-make_index_file.R

In scopr: Read Ethoscope Data

context("make_index_file")

test_that("make_index_file works", {
  dir <- paste0(scopr_example_dir(), "/ethoscope_results/")
  index_file <- tempfile("index_test_", fileext = ".txt")

  out <- make_index_file(dir, index_file = index_file)
  ls <- list_result_files(dir)
  ls2 <- list_result_files(dir, index_file = "index.txt")
  expect_identical(ls2, ls)
  unlink(index_file)
})