Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug488
1
2 puts "========="
3 puts " OCC488 "
4 puts "========="
5 puts ""
6 ########################################################
7 ## Boolean operation returns invalid result, it lead to regression on test cfe/002/C1
8 ########################################################
9
10 restore [locate_data_file OCC488a.brep] a_1 
11 puts [checkshape a_1]
12
13 restore [locate_data_file OCC488b.brep] a_2
14 puts [checkshape a_2]
15
16 if [catch {bcommon result a_1 a_2 } catch_result] {
17     puts "Faulty OCC488: command COMMON works wrongly"
18 } else {
19     puts "OCC488 OK: function COMMON works properly "
20 }
21 set square 92466.8
22 set 2dviewer 0