tests/testthat/test-create_razzo_params.R

In richelbilderbeek/razzo: The Error if Nature is MBD

test_that("use", {

  if (rappdirs::app_dir()$os == "win") {
    skip("This can only run on Linux.")
  }

  mbd_params <- create_test_mbd_params()
  pir_params <- razzo::create_test_razzo_pir_params()
  misc_params <- create_misc_params()

  razzo_params <- create_params_razzo(
    mbd_params = mbd_params,
    pir_params = pir_params,
    misc_params = misc_params
  )

  expect_silent(check_razzo_params(razzo_params))

  # create_params_razzo changes the tree filename to follow
  # the alignment filename in pir_params
  expect_true(
    misc_params$tree_filename != razzo_params$misc_params$tree_filename
  )
})