0650394df3955fa75d5bec58042c67a5f36e45db
[synclust.git] / 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 }