tests/testthat/test-lcm.R

context("LCM() is working properly")

test_that("LCM works", {
  expect_equal(LCM(5L,  7L), 35L)
  expect_equal(LCM(5L,  8L), 40L)
  expect_equal(LCM(5L,  9L), 45L)
  expect_equal(LCM(5L, 10L), 10L)
})

Try the mpoly package in your browser

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

mpoly documentation built on June 10, 2025, 1:08 a.m.