1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-08 18:40:55 +03:00
ski 58cf74e0c0 0025945: Make stable checking of shape global properties in tests
- Added function checkprops, set default tolerance parameter to 1.0e-4
- Using "area" instead of "square".
- Options "-equal\notequal" isn't used together with "-s" in blend and offset test cases.
- Correct regressions/differences/improvements and CPU problem (set props tolerance to 0.1)
- Corrected test cases to use checkprops proc.
- Correct image difference
- Updated TODOs in test cases.
- Updated test cases to get correct images of result shape
2015-12-10 16:56:03 +03:00

41 lines
908 B
Plaintext
Executable File

puts "========================"
puts " OCC605"
puts "========================"
puts ""
##############################
## No any faces in result of pipe command.
##############################
pload ALL
restore [locate_data_file OCC605a.brep] w1
settolerance w1 1.e-7
checkshape w1
restore [locate_data_file OCC605b.brep] w2
checkshape w2
if { [catch {pipe result w2 w1 } catch_result] } {
puts "Faulty OCC605: function PIPE works with exception."
} else {
explode result f
set nom 0
set j 1
repeat 20 {
if { [regexp {FACE} [whatis result_$j]] != 1 } {
break
} else {
set nom [expr $nom + 1]
}
incr j
}
if { $nom == 0 } {
puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
} else {
puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
}
}
checkprops result -s 20.6253
checkshape result
set 2dviewer 0