inst/tinytest/test-divisible.R

# test_that("divisible works", {
  expect_equal(divisible(1:100, 3L), (1:100) %% 3L == 0L)
  expect_equal(divisible2(1:100), (1:100) %% 2L == 0L)
  expect_equal(divisible16(1:100), (1:100) %% 16L == 0L)

Try the hutilscpp package in your browser

Any scripts or data that you put into this service are public.

hutilscpp documentation built on Oct. 11, 2023, 9:06 a.m.