Correction of unstable testing cases

[occt.git] / tests / bugs / modalg_1 / buc60703_4

puts "========================"
puts "BUC60703"
puts "========================"
puts ""
####################################
## Crash during a fuse whilst two plans are tangent. 
####################################

restore [locate_data_file buc60703d.brep] a 
#maxtolerance a
checkshape a
restore [locate_data_file buc60703f.brep] b
#maxtolerance b
checkshape b

if [catch {bfuse result a b } catch_result] {
    puts "Faulty  BUC60703: here is problem with FUSE operation"
} else {
    puts "OK OCC348: function FUSE works ok"
    if [catch {checkshape result} catch_result] {
	set mistake 1
    } else {
	set mistake 0
    }

    if { $mistake != 0} {
	puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
    } else {
	puts "BUC60703   : here is NOT checking problem"
    }
}
set square 505.797
set 2dviewer 0