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 April 4, 2025, 12:42 a.m.