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} |
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{ |
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"; |