tests/testthat/test-create_input_files_test.R

In richelbilderbeek/flechette: What If Speciation Takes Time?

test_that("files are created in right folder", {

  # Put files in temporary folder
  super_folder_name <- peregrine::get_pff_tempdir()
  project_folder_name <- file.path(super_folder_name, "raket_werper")
  filenames <- create_input_files_test(
    create_test_params_set(project_folder_name)
  )

  first_parameters <- readRDS(filenames[1])
  expect_false(
    is.na(
      stringr::str_match(
        string = first_parameters$pbd_sim_out_filename,
        pattern = super_folder_name
      )
    )
  )

  # The folder structure created:
  # * raket_werper (the name of the GitHub containing the scripts)
  #   * scripts
  #   * data
  #   * figures

  # OK: Parameter filenames are a number with a .RDa
  expect_true(
    length(
      grep(
        pattern = "[[:digit:]]?\\.RDa$", filenames[1], perl = TRUE, value = TRUE
      )
    ) > 0
  )
  # OK: there is a data folder that is a subfolder of razzo_project'
  # Use ..? to indicate one or two back- or normal slashes
  expect_true(
    length(
      grep(
        pattern = "raket_werper..?data",
        filenames[1], perl = TRUE, value = TRUE
      )
    ) > 0
  )
})