tests/testthat/test_parallel.R

In windfarmGA: Genetic Algorithm for Wind Farm Layout Optimization

test_that("Test Parallelisation", {
  skip_on_cran()
  skip_on_ci()

  ## Inputs ##################
  area <- sf::st_as_sf(sf::st_sfc(
    sf::st_polygon(list(cbind(
      c(4498482, 4498482, 4499991, 4499991, 4498482),
      c(2668272, 2669343, 2669343, 2668272, 2668272)
    ))),
    crs = 3035
  ))
  wind <- data.frame(ws = 12, wd = 0)

  ## Mock Packages not installed ###########
  with_mocked_bindings(
    is_foreach_installed = function() FALSE,
    expect_error(
      genetic_algorithm(
        area = area,
        n = 12, iteration = 2,
        wind = wind,
        rotor = 30,
        rotor_height = 100, parallel = TRUE
      )
    )
  )
  with_mocked_bindings(
    is_parallel_installed = function() FALSE,
    expect_error(
      genetic_algorithm(
        area = area,
        n = 12, iteration = 2,
        wind = wind,
        rotor = 30,
        rotor_height = 100, parallel = TRUE
      )
    )
  )
  with_mocked_bindings(
    is_doparallel_installed = function() FALSE,
    expect_error(
      genetic_algorithm(
        area = area,
        n = 12, iteration = 2,
        wind = wind,
        rotor = 30,
        rotor_height = 100, parallel = TRUE
      )
    )
  )

  ## genetic_algorithm ####################
  ## PSOCK workers + covr tracing: stopCluster often dies in serialize()
  skip_on_covr()

  ## Default amount of Cluster
  res <- genetic_algorithm(
    area = area,
    n = 12, iteration = 2,
    wind = wind,
    rotor = 30,
    rotor_height = 100, parallel = TRUE
  )
  expect_true(nrow(res) == 2)
  expect_true(is.matrix(res))
  expect_false(any(unlist(sapply(res, is.na))))

  ## Too many workers: cap and warn, do not call makeCluster(100)
  expect_warning(
    res <- genetic_algorithm(
      area = area,
      n = 12, iteration = 1,
      wind = wind,
      rotor = 30,
      rotor_height = 100,
      parallel = TRUE, n_cluster = 100
    )
  )
  expect_true(nrow(res) == 1)
  expect_true(is.matrix(res))
  expect_false(any(unlist(sapply(res, is.na))))
})