R/tests/helpers.R

   1 checkEquals = function(target, current,
   2     tolerance=.Machine$double.eps^0.5, msg="", ...)
   3 {
   4     #all.equal.numeric ?
   5     result = all.equal(target, current, tolerance=tolerance, ...)
   6     if (result != TRUE)
   7         stop(msg)
   8 }
   9
  10 checkTrue = function(b, msg="")
  11 {
  12     if (!b)
  13         stop(msg)
  14 }