tests/testthat/test-basic_operations.R

In EriqLaplus/sampleR: What the Package Does (One Line, Title Case)

test_that("addition works", {
  # Basic Addition
  a <- runif(1)
  b <- runif(1)
  
  expect_equal(a + b, add(a, b))
  
  # Negative Numbers
  a <- -1 * runif(1)
  b <- runif(1)
  
  expect_equal(a + b, add(a, b))
})

test_that("subtraction works", {
  # Basic Subtraction
  a <- runif(1)
  b <- runif(1)
  
  expect_equal(a - b, subtract(a, b))
  
  # Negative Numbers
  a <- -1 * runif(1)
  b <- runif(1)
  
  expect_equal(a - b, subtract(a, b))
})

test_that("division errors if zero", {
  expect_error(divide(1, 0), "Nah")
})

test_that("division works", {
  # Basic Addition
  a <- runif(1)
  b <- runif(1)
  
  expect_equal(a / b, divide(a, b))
  
  # Negative Numbers
  a <- -1 * runif(1)
  b <- runif(1)
  
  expect_equal(a / b, divide(a, b))
})