tests/testthat/test-all.R

In PabRod/pyR: Test Python and R in the same project

context("Basic tests")

test_that("Python core", {
  text <- python_core()

  expect_equal(text, 'Python core working correctly')
})

test_that("Python module", {
  num <- python_module()

  expect_equal(num, 3.1416, tolerance = 1e-3)
})

test_that("Python custom", {
  derivs <- python_custom()

  expect_equal(derivs[[1]], 0.0, tolerance = 1e-4)
  expect_equal(derivs[[2]], 0.0, tolerance = 1e-4)
})