tests/testthat/test-evaluate_position.R

In dryguy/rbitr: Arbiter: One who ensures adherence to the rules and laws of chess

# Load the locations of the chess engines that will be tested
engines_file_path <- file.path(
  system.file(package = 'rbitr'),
  'extdata',
  'engine_paths.R'
)
source(engines_file_path)

test_that("evaluate_position evaluates a chess position", {
  for (engine_path in engine_paths) {
    test_ep <- evaluate_position('e2e4', engine_path, n_pv = 1, n_cpus = 1,
                              limiter = 'depth', limit = 1)
    expect_identical(class(test_ep), 'list')
    expect_identical(test_ep[[1]][2], 'readyok')
    test_ep <- evaluate_position('e2e4', engine_path, n_pv = 1, n_cpus = 1,
                              limiter = 'depth', limit = 1, hash_size = 8)
    expect_identical(test_ep[[1]][2], 'readyok')
  }
})