55 |
|
|
56 |
# Where to find the executable |
# Where to find the executable |
57 |
# Default value |
# Default value |
58 |
$ff3d = 'ff3d'; |
$ff3d = '../ff3d'; |
|
# Inside the automake procedure |
|
|
$ff3d = "$ENV{top_srcdir}/ff3d" if defined $ENV{top_srcdir}; |
|
59 |
# User-defined environment |
# User-defined environment |
60 |
$ff3d = $ENV{FF3DTEST} if defined $ENV{FF3DTEST}; |
$ff3d = $ENV{FF3DTEST} if defined $ENV{FF3DTEST}; |
61 |
|
|
136 |
# Final report, after all checks have been done on one ff3d run. |
# Final report, after all checks have been done on one ff3d run. |
137 |
|
|
138 |
sub Report{ |
sub Report{ |
139 |
die "*** $errors error(s)" if $errors > 0; |
open STATS,">> STATS"; |
140 |
|
my $now = localtime; |
141 |
|
print STATS "$errors error(s)"; |
142 |
|
close STATS; |
143 |
|
|
144 |
|
if($errors > 0){ |
145 |
|
die "*** $errors error(s)"; |
146 |
|
} |
147 |
} |
} |
148 |
|
|
149 |
# Builds the given povray scene, read it in ff3d and checks wether the |
# Builds the given povray scene, read it in ff3d and checks wether the |
374 |
BoundCheck($file1 ." / ".$file2." = ",L2Diff(\@vec1,\@vec2),0,$prec); |
BoundCheck($file1 ." / ".$file2." = ",L2Diff(\@vec1,\@vec2),0,$prec); |
375 |
} |
} |
376 |
|
|
377 |
|
# Immediatly puts a trace of the current script name in the STATS |
378 |
|
# file, in case this script will crash (with "die") before its natural |
379 |
|
# end, without producing any readable output in STATS. |
380 |
|
|
381 |
|
open STATS,">> STATS"; |
382 |
|
my $now = localtime; |
383 |
|
print STATS "\n",$now," ",$0," : "; |
384 |
|
close STATS; |
385 |
|
|
386 |
1; |
1; |