Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug439
1
2 puts "========================"
3 puts " OCC439 "
4 puts "========================"
5 puts ""
6 #####################################################
7 ## Cut operation produces NOT Valid result on attached shapes 
8 #####################################################
9
10 restore [locate_data_file OCC439.brep] a 
11 explode a
12
13 puts [checkshape a_1]
14 puts [checkshape a_2]
15
16 bcut result a_1 a_2
17
18 set che [checkshape result]
19 if { [regexp {Faulty} $che ] == 1 } {
20     puts "Faulty OCC134: Resulte shape is invalid. It was detected by Checkshape command"
21 } else {
22     puts "OCC134 OK: Result shape is valid"
23 }
24
25 set square 247000
26 set 2dviewer 0