tests/testthat/test-save_gcae_experiment_params.R

In richelbilderbeek/gcaer: Interface to GCAE

test_that("use", {
  gcae_experiment_params <- create_test_gcae_experiment_params()
  gcae_experiment_params_filename <- get_gcaer_tempfilename(  # nolint indeed a long variable name
    pattern = "experiment",
    fileext = ".csv"
  )
  save_gcae_experiment_params(
    gcae_experiment_params = gcae_experiment_params,
    gcae_experiment_params_filename = gcae_experiment_params_filename
  )
  expect_true(file.exists(gcae_experiment_params_filename))
})

test_that("use, no superpops", {
  gcae_experiment_params <- create_test_gcae_experiment_params(
    gcae_setup = create_test_gcae_setup(
      superpops = ""
    ),
    metrics = ""
  )
  gcae_experiment_params_filename <- get_gcaer_tempfilename(  # nolint indeed a long variable name
    pattern = "experiment",
    fileext = ".csv"
  )
  save_gcae_experiment_params(
    gcae_experiment_params = gcae_experiment_params,
    gcae_experiment_params_filename = gcae_experiment_params_filename
  )
  expect_true(file.exists(gcae_experiment_params_filename))
})