Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60409_2
1
2 puts "============="
3 puts "   BUC60409  "
4 puts "     CUT     "
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     set che [checkshape s]
18     if { [regexp {Faulty} $che ] == 1 } {
19         puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
20         puts "Body of the script was NOT executed"
21         renamevar s result
22     } else {
23         puts "BUC60409 OK (shape 2): Source shape is valid"
24         bcut result c s
25     }
26 }
27 set square 31.8476
28 set 2dviewer 0