mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
0e443e130c
Test parse rules are improved to recognize messages with word 'fail' or 'failure' as errors. Test cases are corrected accordingly (TODO or REQUIRED statements added where fail messages were not noticed previously).
41 lines
1.2 KiB
Plaintext
Executable File
41 lines
1.2 KiB
Plaintext
Executable File
puts "TODO OCC22849 ALL: Meshing statuses: OpenWire Failure"
|
|
|
|
puts "============"
|
|
puts "OCC22849"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Bad import of a STEP file (error during triangulation)
|
|
#######################################################################
|
|
|
|
set BugNumber OCC22849
|
|
|
|
catch {pload XDE}
|
|
|
|
stepread [locate_data_file OCC22849-2520-6002_step.stp] a *
|
|
checkshape a_1
|
|
##tole a_1
|
|
incmesh a_1 0.1
|
|
tricheck a_1
|
|
explode a_1 f
|
|
|
|
set info1 [fromshape a_1_67]
|
|
regexp {Shape a_1_67 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info1 full entity1
|
|
set word1 [string compare $entity1 4973:#5009]
|
|
|
|
set info2 [fromshape a_1_73]
|
|
regexp {Shape a_1_73 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info2 full entity2
|
|
set word2 [string compare $entity2 5157:#5193]
|
|
|
|
set info3 [fromshape a_1_91]
|
|
regexp {Shape a_1_91 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info3 full entity3
|
|
set word3 [string compare $entity3 5659:#5695]
|
|
|
|
if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
checkview -display result -3d -path ${imagedir}/${test_image}.png
|