add alternative approach from 2013-01
[synclust.git] / R / tests / helpers.R
... / ...
CommitLineData
1checkEquals = 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
10checkTrue = function(b, msg="")
11{
12 if (!b)
13 stop(msg)
14}