tests/testthat/test-soft.R

test_that("soft works", {
  expect_equal(soft(3, 1), 2)
  expect_equal(soft(-3.5, 2), -1.5)
  expect_equal(soft(1.7, 3.2), 0)
})
irinagain/RPackageGithubIllustration documentation built on Dec. 20, 2021, 7:59 p.m.