Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60789_1
1
2 puts "========"
3 puts "BUC60789"
4 puts "========"
5 puts ""
6
7 #restore buc60789a.brep S1
8 restore [locate_data_file buc60787b.brep] S1 
9 ### (by apn during classification)
10 puts [checkshape S1]
11 restore [locate_data_file buc60789b.brep] S2
12 puts [checkshape S2]
13
14 bcommon result S1 S2
15
16
17 set nb_info [nbshapes result]
18 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
19 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
20
21 if { $ve != 0 && $ed != 0 } {
22     puts  " BUC60789 OK: COMMON operation was made properly"
23 } else {
24     puts "Faulty BUC60789: COMMON operation was made wrongly"
25 }
26 set length 78.3594
27 set 2dviewer 0