tests/testthat/test-to_pff_alignment_params.R

In richelbilderbeek/peregrine: Work With The Groninger Peregrine Computer Cluster

test_that("use", {

  alignment_params <- pirouette::create_alignment_params()
  expect_silent(check_pff_alignment_params(alignment_params))
  alignment_params <- to_pff_alignment_params(alignment_params)
  expect_silent(check_pff_alignment_params(alignment_params))
})

test_that("use with unfriendly filename", {

  alignment_params <- pirouette::create_alignment_params()
  alignment_params$fasta_filename <- "/unfriendly.txt"
  expect_error(check_pff_alignment_params(alignment_params))
  alignment_params <- to_pff_alignment_params(alignment_params)
  expect_silent(check_pff_alignment_params(alignment_params))
})