0028097: Test system does not recognize 'fail...' messages as errors
[occt.git] / tests / bugs / vis / bug22849
1 puts "TODO OCC22849 ALL: Meshing statuses: OpenWire Failure"
2
3 puts "============"
4 puts "OCC22849"
5 puts "============"
6 puts ""
7 #######################################################################
8 # Bad import of a STEP file (error during triangulation)
9 #######################################################################
10
11 set BugNumber OCC22849
12
13 catch {pload XDE}
14
15 stepread [locate_data_file OCC22849-2520-6002_step.stp] a *
16 checkshape a_1
17 ##tole a_1
18 incmesh a_1 0.1
19 tricheck a_1
20 explode a_1 f
21
22 set info1 [fromshape a_1_67]
23 regexp {Shape a_1_67 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info1 full entity1
24 set word1 [string compare $entity1 4973:#5009]
25
26 set info2 [fromshape a_1_73]
27 regexp {Shape a_1_73 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info2 full entity2
28 set word2 [string compare $entity2 5157:#5193]
29
30 set info3 [fromshape a_1_91]
31 regexp {Shape a_1_91 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info3 full entity3
32 set word3 [string compare $entity3 5659:#5695]
33
34 if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
35   puts "OK ${BugNumber}"
36 } else {
37   puts "Faulty ${BugNumber}"
38 }
39
40 checkview -display result -3d -path ${imagedir}/${test_image}.png