1 puts "TODO ?DEBUG_OCC24121 Windows: \\*\\* Exception \\*\\*.*"
2 puts "TODO ?DEBUG_OCC24121 Windows: An exception was caught"
3 puts "TODO ?DEBUG_OCC24121 Windows: Faulty OCC22757"
5 puts "================"
7 puts "================"
9 #######################################################################################
10 # Exception in ShapeHealing
11 ######################################################################################
13 set BugNumber OCC22757
18 restore [locate_data_file BUC60887.brep] res
19 set TestVar [ catch {fixshape result res 0.01} ]
21 if { ${TestVar} != 0 } {
22 puts "Faulty ${BugNumber}"
24 puts "OK ${BugNumber}"