tests/testthat/test-minimum.R

In AshleyDennisHenderson/data.summary: Data Summary Package

library(testthat)
library(data.summary)

context("Minimum")

test_that("Check results", {

  x <- 1:10

  expect_equal(minimum(x), 1)

  y <- c(10, 13, -3, 55, 100, -2)

  expect_equal(minimum(y), -3)

  z <- rnorm(20)

  expect_equal(minimum(z), min(z))

})