Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_4 / bug697_4
CommitLineData
61c421bf 1puts "============"
2puts "OCC697"
3puts "============"
4puts ""
5######################################################
6# Fuse operation does not work
7######################################################
8## (new topology)
9## (bfuse)
10######################################################
11
61c421bf 12restore [locate_data_file OCC697_2.brep] b2
809eca9d 13restore [locate_data_file OCC697_3.brep] b3
61c421bf 14
61c421bf 15checkshape b2
809eca9d 16checkshape b3
61c421bf 17
809eca9d 18if { [catch {bfuse result b3 b2} catch_result] } {
19 puts "Faulty OCC697"
61c421bf 20}
809eca9d 21set square 25357.5
61c421bf 22set 3dviewer 1
809eca9d 23