tests/testthat/test-parallelism.R

In spatialwarnings: Spatial Early Warning Signals of Ecosystem Degradation

# 
# This function makes sure parallelism is enabled 
#

context("Test that parallel computing works")

test_that("Parallelism work", { 
  
  if ( exists("EXTENDED_TESTS") && 
       EXTENDED_TESTS && 
       availableCores() > 1 ) { 
    a <- generic_sews(forestgap)
    
    plan(sequential)
    b.1 <- system.time( indictest(a, 49) ) 
    plan(multisession)
    b.2 <- system.time( indictest(a, 49) ) 
    
    expect_true( b.1["elapsed"] > b.2["elapsed"] )
    
    if ( .Platform$OS.type == "unix" ) { 
      plan(multisession)
      b.3 <- system.time( indictest(a, 49) ) 
      expect_true( b.1["elapsed"] > b.3["elapsed"] )
    }
    
    plan(sequential) # restore plan to no-parallelism
  } else { 
    # This is a dummy test so that testhat does not report an empty test
    expect_true(TRUE)
  }
  
})