1 puts "TODO ?OCC11111 ALL: Faulty OCC22849"
2 puts "TODO DEBUG_OCC24121 Debian60-64 Windows: Warning: ShapeFix_Solid::SolidFromShell: Exception"
8 #######################################################################
9 # Bad import of a STEP file (error during triangulation)
10 #######################################################################
12 set BugNumber OCC22849
16 stepread [locate_data_file OCC22849-2520-6002_step.stp] a *
23 set info1 [fromshape a_1_67]
24 regexp {Shape a_1_67 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info1 full entity1
25 set word1 [string compare $entity1 4973:#5009]
27 set info2 [fromshape a_1_73]
28 regexp {Shape a_1_73 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info2 full entity2
29 set word2 [string compare $entity2 5157:#5193]
31 set info3 [fromshape a_1_91]
32 regexp {Shape a_1_91 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info3 full entity3
33 set word3 [string compare $entity3 5659:#5695]
35 if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
36 puts "OK ${BugNumber}"
38 puts "Faulty ${BugNumber}"