tests/testthat/test_fitness_evaluator_uniform.R

In philliplab/yasss: Yet Another Short Sequence Simulator

context("fitness_evaluator_uniform")

#  the_seq <- c('AAAAAA', 'CCCCCC', 'GGGGGG')

test_that("fitness_evaluator_uniform works", {
  fe <- list(fun = 'fitness_evaluator_uniform_fun',
             the_seq = c('AAAAAA', 'CCCCCC', 'GGGGGG'),
             args = NULL)

  # debugging
  #TODO: delete
  if (FALSE){
    fun <- fe$fun
    args <- fe$args
  }

  x <- check_fitness_evaluator(fe$the_seq, fe$fun, fe$args)
  for (i in names(x)){
    expect_true(x[[i]], info = i)
  }

  x <- sim_pop('AAAA', r0 = 2, n_pop = 15)
  fit_fun <- get(fe$fun)
  args <- fe$args
  args$the_seq = x$the_seq
  y <- do.call(fit_fun, args)
  check_fitness_evaluator_result(y, args)
  
  x <- sim_pop('AAAAAAAAA', r0 = 2, n_pop = 15,
               mutator = list(fun = "mutator_uniform_fun",
                              args = list(mu = 0.5)))
  fit_fun <- get(fe$fun)
  args <- fe$args
  args$the_seq = x$the_seq
  y <- do.call(fit_fun, args)
  check_fitness_evaluator_result(y, args)
})