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 March 26, 2020, 7:33 p.m.