[synclust.git] / R / tests / helpers.R

checkEquals = function(target, current, 
	tolerance=.Machine$double.eps^0.5, msg="", ...)
{
	#all.equal.numeric ?
	result = all.equal(target, current, tolerance=tolerance, ...)
	if (result != TRUE)
		stop(msg)
}

checkTrue = function(b, msg="")
{
	if (!b)
		stop(msg)
}
Commit	Line	Data
	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	}