0024593: Missing surfaces from STL output
[occt.git] / tests / bugs / mesh / bug24593_2
1 puts "========"
2 puts "OCC24593"
3 puts "========"
4 puts ""
5 #####################################
6 # Missing surfaces from STL output
7 #####################################
8
9 pload XDE
10
11 set refnbfaces 23
12
13 stepread [locate_data_file bug24593_281946.stp] a *
14 renamevar a_1 result
15
16 #1
17 checkview -display result -3d -path ${imagedir}/${test_image}.png
18
19 #2
20 set log1 [explode result f]
21 set nbfaces [llength $log1]
22
23 #3
24 set log2 [tricheck result]
25
26 if { $nbfaces != $refnbfaces } {
27   puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
28 }
29
30 if { [llength $log2] != 0 } {
31   puts "Error : Some faces has failed to mesh"
32 }