Correction of testing case for issue 24374

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

puts "============"
puts "BUC60788"
puts "case 1"
puts "============"

#restore Intersection_Shell1_Case1.brep S1
#restore Intersection_Shell2_Case1.brep S2

restore [locate_data_file buc60788a.brep] S1 
checkshape S1
restore [locate_data_file buc60788b.brep] S2
checkshape S2

bsection result S1 S2

set nb_info [nbshapes result]
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err
regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1

if { $err != 4 && $err1 != 3} {
    puts "Faulty :  result (res) is incorrect"
} else {
    puts "BUC60788 - OK"
}

set length 750
set 2dviewer 0