/[ff3d]/ff3d/testsuite/check.ph
ViewVC logotype

Diff of /ff3d/testsuite/check.ph

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by ArceneL, Fri Sep 26 07:55:59 2003 UTC revision 1.7 by ArceneL, Tue Oct 14 15:29:59 2003 UTC
# Line 55  sub Run{ Line 55  sub Run{
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    
# Line 138  sub NumCheck{ Line 136  sub NumCheck{
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
# Line 369  sub VectorCheck{ Line 374  sub VectorCheck{
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;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26