Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60708
1
2 puts "==========="
3 puts "BUC60708"
4 puts "==========="
5
6 restore [locate_data_file buc60708a.brep] a 
7 puts [checkshape a]
8 restore [locate_data_file buc60708b.brep] b
9 puts [checkshape b]
10
11 bcommon result a b
12
13 set faces [explode result f]
14 set n [llength $faces]
15
16 set end [lindex $faces [expr $n-1]]
17
18 if {  $end != "result_4" } {
19     puts " Faulty :Common operation was made  wrongly"
20 } else {
21     puts " Common operation was made successfully"
22 }
23 set square 13.4871
24 set 2dviewer 0