1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
apn 9aa684edf4 0025987: Integration part of modified unstable test cases
Unstable test cases were reviewed
Modified test cases using checktrend command
Modified test cases for Linux platform
Modified test cases for Debug mode
2015-03-26 18:10:29 +03:00

45 lines
927 B
Plaintext
Executable File

puts "TODO OCC25735 ALL: Faulty shapes in variables faulty_1 to"
puts "TODO OCC22033 ALL: Error : The square of result shape is"
puts "================"
puts "OCC62"
puts "BUC61001"
puts "================"
cpulimit 1400
restore [locate_data_file OCC62.brep] sh
#Delete invalid (in terms of bug#25109) triangulation
tclean sh
explode sh
checkshape sh
bfuse res1 sh_1 sh_3
checkshape res1
bfuse res2 res1 sh_2
checkshape res2
bfuse res3 res2 sh_6
checkshape res3
bfuse res4 res3 sh_4
checkshape res4
bfuse res5 res4 sh_5
checkshape res5
renamevar res5 result
set OCC62_square 1.23063e+7
puts "The expected square is ${OCC62_square}"
set sq_persent 0.03
regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
if { (${OCC62_square} != 0 && [expr abs(${OCC62_square} - $m)/${OCC62_square}] > ${sq_persent}) || (${OCC62_square} == 0 && $m != 0) } {
puts "Error : The square of result shape is $m"
}
set 2dviewer 0