0
|
1 |
#======================================================================
|
|
2 |
# L I B U B T E S T . P L
|
|
3 |
# doc: Sun Mar 21 09:35:05 1999
|
|
4 |
# dlm: Mon Jul 24 15:10:05 2006
|
|
5 |
# (c) 1999 A.M. Thurnherr
|
|
6 |
# uE-Info: 10 32 NIL 0 0 72 2 2 4 NIL ofnI
|
|
7 |
#======================================================================
|
|
8 |
|
|
9 |
# overloaded equal() routine for ubtest
|
|
10 |
# NB: tests relative errors!!!
|
|
11 |
|
|
12 |
# HISTORY:
|
|
13 |
# Mar 21, 1999: - created
|
|
14 |
# Sep 18, 1999: - argument typechecking
|
|
15 |
|
|
16 |
$error = 1e-6;
|
|
17 |
|
|
18 |
sub equal($$)
|
|
19 |
{
|
|
20 |
my($target,$val) = &antsFunUsage(2,"ff","target, val",@_);
|
|
21 |
my($abserr) = $target-$val;
|
|
22 |
my($relerr) = abs($abserr / ($target ? $target : 1));
|
|
23 |
if ($relerr > $error) {
|
|
24 |
print(STDERR "Equality failure --- abs err = $abserr, rel err = $relerr\n");
|
|
25 |
exit(1);
|
|
26 |
}
|
|
27 |
exit(0);
|
|
28 |
}
|
|
29 |
|
|
30 |
1;
|