tests/testthat/test-get_coprimes.R

test_that("get_coprimes examples", {
  expect_equal(get_coprimes(10), c(1, 3, 7, 9))
  expect_equal(length(get_coprimes(100)), numbers::eulersPhi(100))
})
PrzeChoj/gips documentation built on June 12, 2025, 12:23 a.m.