Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60789_2
1
2 puts "========"
3 puts "BUC60789"
4 puts "========"
5 puts ""
6
7 #restore buc60789c.brep S1
8 ##by apn
9 restore [locate_data_file buc60787b.brep] S1 
10 puts [checkshape S1]
11 restore [locate_data_file buc60789d.brep] S2
12 puts [checkshape S2]
13
14 bcut result S2 S1
15
16 set nb_info [nbshapes result]
17 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
18 regexp {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  }
25 set length 288.856
26 set 2dviewer 0