tests/testthat/test-create_gcae_train_args.R

In richelbilderbeek/gcaer: Interface to GCAE

test_that("use", {

  gcae_setup <- create_test_gcae_setup()
  epochs <- 1
  save_interval <- 1

  created <- create_gcae_train_args(
    gcae_setup = gcae_setup,
    epochs = epochs,
    save_interval = save_interval
  )
  expected <- c(
    "train",
    "--datadir", gcae_setup$datadir,
    "--data", gcae_setup$data,
    "--model_id", gcae_setup$model_id,
    "--epochs", epochs,
    "--save_interval", save_interval,
    "--train_opts_id", gcae_setup$train_opts_id,
    "--data_opts_id", gcae_setup$data_opts_id,
    "--trainedmodeldir", gcae_setup$trainedmodeldir,
    "--pheno_model_id", gcae_setup$pheno_model_id
  )
  expect_equal(created, expected)
})

test_that("no --pheno_model_id when it is an empty string, #26", {
  args <- create_gcae_train_args(
    gcae_setup = create_test_gcae_setup(pheno_model_id = ""),
    epochs = 1,
    save_interval = 1
  )
  expect_false("--pheno_model_id" %in% args)
})