#======================================================================
#                    L I B U B T E S T . P L 
#                    doc: Sun Mar 21 09:35:05 1999
#                    dlm: Mon Jul 24 15:10:05 2006
#                    (c) 1999 A.M. Thurnherr
#                    uE-Info: 10 32 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================

# overloaded equal() routine for ubtest
#	NB: tests relative errors!!!

# HISTORY:
#	Mar 21, 1999: - created
#	Sep 18, 1999: - argument typechecking

$error = 1e-6;

sub equal($$)
{
	my($target,$val) = &antsFunUsage(2,"ff","target, val",@_);
	my($abserr) = $target-$val;
	my($relerr) = abs($abserr / ($target ? $target : 1));
	if ($relerr > $error) {
		print(STDERR "Equality failure --- abs err = $abserr, rel err = $relerr\n");
		exit(1);
	}
	exit(0);
}

1;