Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60409_3
1
2 puts "================="
3 puts "     BUC60409    "
4 puts "      COMMON     "
5 puts "================="
6
7 restore [locate_data_file buc60409a.brep] c 
8 restore [locate_data_file buc60409b.brep] s
9
10 set che [checkshape c]
11 if { [regexp {Faulty} $che ] == 1 } {
12     puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
13     puts "Body of the script was NOT executed"
14     renamevar c result
15 } else {
16     puts "BUC60409 OK (shape 1): Source shape is valid"
17
18     set che [checkshape s]
19     if { [regexp {Faulty} $che ] == 1 } {
20         puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
21         puts "Body of the script was NOT executed"
22         renamevar s result
23     } else {
24         puts "BUC60409 OK (shape 2): Source shape is valid"
25         bcommon result c s
26     }
27 }
28 set square 4.89279
29 set 2dviewer 0