tests/testthat/test-soft-works.R

test_that("soft works", {
  expect_equal(soft(2, 1), 1)
  expect_equal(soft(-2, 1), -1)
  expect_equal(soft(3.2, 1.1), 2.1)
  expect_equal(soft(3.2, 4.5), 0)
})
irinagain/RpackageExampleExtra documentation built on Dec. 20, 2021, 7:59 p.m.