tests/testthat/tests.R

In garrettgman/centering:

context("center")

test_that("center handles integers", {
  expect_equal(center(1:3), -1:1)
  expect_equal(center(-(1:3)), 1:-1)
})

context("rescale")

test_that("rescale handles integers", {
  expect_equal(rescale(1:3), 1:3)
  expect_equal(rescale(-(1:3)), -(1:3))
})

context("standardize")

test_that("standardize handles integers", {
  expect_equal(standardize(1:3), -1:1)
  expect_equal(standardize(-(1:3)), 1:-1)
})