tests/testthat/test_rescale_1_args.R

In derek-damron/transform: Easy variable transformations in R

context('Rescale - Arguments')

x <- 1:10

test_that('Check - x', {
  expect_error(rescale(),
               'Please provide a vector x to rescale')
  expect_error(rescale(x='a'),
               'x must be a numeric vector')
})

test_that('Check - normal', {
  expect_error(rescale(x, 'normal', mean='a'),
               'mean must be a numeric value')
  expect_error(rescale(x, 'normal', mean=1:2),
               'mean must be a single value')
  expect_error(rescale(x, 'normal', mean=0, sd='a'),
               'sd must be a positive numeric value')
  expect_error(rescale(x, 'normal', mean=0, sd=-1),
               'sd must be a positive numeric value')
  expect_error(rescale(x, 'normal', mean=0, sd=1:2),
               'sd must be a single value')
})

test_that('Check - minmax', {
  expect_error(rescale(x, 'minmax', min='a'),
               'min must be a numeric value')
  expect_error(rescale(x, 'minmax', min=1:2),
               'min must be a single value')
  expect_error(rescale(x, 'minmax', min=0, max='a'),
               'max must be a numeric value')
  expect_error(rescale(x, 'minmax', min=0, max=1:2),
               'max must be a single value')
  expect_error(rescale(x, 'minmax', min=0, max=-1),
               'min must be less than or equal to max')
})