/[ff3d]/ff3d/testsuite/mesh.pl
ViewVC logotype

Diff of /ff3d/testsuite/mesh.pl

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

revision 1.7 by ArceneL, Tue Oct 14 15:29:59 2003 UTC revision 1.8 by ArceneL, Fri Nov 21 10:30:15 2003 UTC
# Line 28  require 'check.ph'; Line 28  require 'check.ph';
28  # aligned with mesh elements because this is when many special cases  # aligned with mesh elements because this is when many special cases
29  # arise.  # arise.
30    
31  WriteFile('test.pov',<< 'EOF');  WriteFile("test-mesh.pov",<< 'EOF');
32  intersection{  intersection{
33      plane{<1,0,0>,1.0}      plane{<1,0,0>,1.0}
34      plane{<-1,0,0>,1.0}      plane{<-1,0,0>,1.0}
# Line 67  for($x = $Nmin;$x <= $Nmax;$x+=$Ninc){ Line 67  for($x = $Nmin;$x <= $Nmax;$x+=$Ninc){
67                  ."vertex b = (2,2,2);\n"                  ."vertex b = (2,2,2);\n"
68                  . << 'EOF';                  . << 'EOF';
69  mesh M = structured(n,a,b);  mesh M = structured(n,a,b);
70  scene S = pov("test.pov");  scene S = pov("test-mesh.pov");
71  domain O = domain(S,inside(<1,0,0>));  domain O = domain(S,inside(<1,0,0>));
72    
73  solve(u) in O by M{  solve(u) in O by M{
# Line 95  EOF Line 95  EOF
95              # number of failures.              # number of failures.
96    
97              # Writes the program into a file for ff3d to read.              # Writes the program into a file for ff3d to read.
98              open PROGRAM,"> test.ff";              open PROGRAM,"> test-mesh.ff";
99              print PROGRAM $prog;              print PROGRAM $prog;
100              close PROGRAM;              close PROGRAM;
101    
102              # Runs ff3d and stores its output into $errlist              # Runs ff3d and stores its output into $errlist
103              $nbcases++;              $nbcases++;
104              $output = `../ff3d test.ff`;              $ff3d = '../ff3d';
105                $ff3d = $ENV{FF3DTEST} if defined $ENV{FF3DTEST};
106                $output = `$ff3d test-mesh.ff`;
107              if($?){              if($?){
108                  $errors++;                  $errors++;
109                  $errlist .= "*** Error with $x x $y x $z mesh\n";                  $errlist .= "*** Error with $x x $y x $z mesh\n";

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

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