tests/testit/test-assert.R

In yihui/testit: A Simple Package for Testing R Packages

library(testit)

assert('assert works', {
  (1 == 1)
})

# Okay, that is kind of cheating
assert('assert() should signal an error if a condition does not hold', {
  (has_error(assert('this should produce an error', 1 == 2)))
})

# a meaningless test in terms of R (failure is irrelevant to Frequentist or Bayesian)
try(assert('Frequentists must be correct (http://xkcd.com/1132/): the sun has exploded!', {
  (sample(6, 2) == c(6, 6))
}), silent = !interactive())

# fail logical(0)
assert('assert() should stop on logical(0)', {
  (has_error(assert('1 equals integer(0)', 1 == integer(0))))
})

assert('the infix operator %==% works', {
  (1 %==% 1)
  (!(1 %==% 1L))
})

assert('has_warning() works', {
  (has_warning(warning('An intentional warning')))
  (has_warning((function() {1:2 + 1:3})()))
})

assert('has_error() works', {
  (has_error(stop('An intentional error')))
  (has_error(1 + 'a'))
})

assert('has_error() can suppress error message', {
  (has_error(stop('An intentional error'), silent = TRUE))
  (has_error(1 + 'a', silent = FALSE))
})

assert('tests can be written in () in a single {}', {

  (1 == 1L)

  z = 1:10
  (rev(z) %==% 10:1)

  !!TRUE

})