Adjusting testing cases for current state of OCCT
[occt.git] / tests / bugs / modalg_1 / buc60409_3
1 puts "TODO #23659 Mandriva2010: Error : The square of result shape is"
2 puts "TODO #23659 Mandriva2010: Error : The command is not valid. The square is"
3
4 puts "================="
5 puts "     BUC60409    "
6 puts "      COMMON     "
7 puts "================="
8
9 restore [locate_data_file buc60409a.brep] c 
10 restore [locate_data_file buc60409b.brep] s
11
12 set che [checkshape c]
13 if { [regexp {Faulty} $che ] == 1 } {
14     puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
15     puts "Body of the script was NOT executed"
16     renamevar c result
17 } else {
18     puts "BUC60409 OK (shape 1): Source shape is valid"
19
20     set che [checkshape s]
21     if { [regexp {Faulty} $che ] == 1 } {
22         puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
23         puts "Body of the script was NOT executed"
24         renamevar s result
25     } else {
26         puts "BUC60409 OK (shape 2): Source shape is valid"
27         bcommon result c s
28     }
29 }
30 set square 4.89279
31 set 2dviewer 0