Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug323
1
2 puts "================"
3 puts "OCC323"
4 puts "OCC229"
5 puts "================"
6 puts ""
7
8 restore [locate_data_file OCC323.brep] f 
9 explode f
10
11 decho off
12 set che [checkshape f_1]
13 decho on
14
15 if { [regexp {Faulty} $che ] == 1 } {
16     puts "Warning OCC323 (shape1): Source shape is NOT correct. It was detected by Checkshape command"
17 } else {
18     puts "OCC323 OK (shape1): Source shape is valid"
19 }
20
21 decho off
22 set che [checkshape f_2]
23 decho on
24
25 if { [regexp {Faulty} $che ] == 1 } {
26     puts "Warning OCC323 (shape2): Source shape is NOT correct. It was detected by Checkshape command"
27 } else {
28     puts "OCC323 OK (shape2): Source shape is valid"
29 }
30
31 bsection r f_1 f_2
32 puts [checkshape r]
33 puts [checksection r]
34
35 decho off
36 set che [checkshape f_3]
37 decho on
38
39 if { [regexp {Faulty} $che ] == 1 } {
40     puts "Warning OCC323 (shape3): Source shape is invalid. It was detected by Checkshape command"
41 } else {
42     puts "OCC323 OK (shape3): Source shape is valid"
43 }
44
45 bsection result f_1 f_3
46
47 set length 1
48 set 2dviewer 0
49
50
51