Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_1 / buc60789_2
CommitLineData
a87752f3 1
2puts "========"
3puts "BUC60789"
4puts "========"
5puts ""
6
7#restore buc60789c.brep S1
8##by apn
9restore [locate_data_file buc60787b.brep] S1
352ffd73 10checkshape S1
a87752f3 11restore [locate_data_file buc60789d.brep] S2
352ffd73 12checkshape S2
a87752f3 13
14bcut result S2 S1
15
16set nb_info [nbshapes result]
17regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
18regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
19
20 if { $ve != 0 && $ed != 0 } {
21 puts " BUC60789 OK: CUT operation was made properly"
22 } else {
23 puts "Faulty BUC60789: CUT operation was made wrongly"
24 }
25set length 288.856
26set 2dviewer 0