/usr/share/doc/r-cran-covr/tests/testthat/Test+Char/TestCompiled/tests/testthat/test-TestCompiled.R

context("Test")
test_that("compiled function simple works", {
  expect_equal(simple(1), 1)
  expect_equal(simple(2), 1)
  expect_equal(simple(3), 1)
  expect_equal(simple(-1), -1)
})

Generated by dwww version 1.15 on Tue Jul 2 09:06:59 CEST 2024.