tests/testthat/test-create_output_file_name.R

In Neves-P/DAISIErobustness: Test the Robustness of DAISIE to Geodynamics and Traits

test_that("use", {

  param_space_name <- "oceanic_ontogeny_cs"
  param_set <- 1
  expect_equal(
    create_output_file_name(
      param_space_name = param_space_name,
      param_set = param_set
    ), expected = "oceanic_ontogeny_cs_param_set_1.rds"
  )
})

test_that("abuse", {
  param_space_name <- "oceanic_ontogeny_cs"
  param_set <- NULL

  expect_error(
    create_output_file_name(
      param_space_name = param_space_name,
      param_set = param_set
    )
  )

  param_space_name <- NULL
  param_set <- 1

  expect_error(
    create_output_file_name(
      param_space_name = param_space_name,
      param_set = param_set
    )
  )

  param_space_name <- NULL
  param_set <- NULL

  expect_error(
    create_output_file_name(
      param_space_name = param_space_name,
      param_set = param_set
    )
  )
})