Adjusting testing cases for current state of OCCT
[occt.git] / tests / bugs / modalg_1 / buc60409_1
CommitLineData
b7a3c470 1puts "TODO #23659 Mandriva2010: Error : The square of result shape is"
0e94a94e 2
3puts "=============="
4puts " BUC60409 "
5puts " FUSE "
6puts "=============="
7
8restore [locate_data_file buc60409a.brep] c
9restore [locate_data_file buc60409b.brep] s
10
11set che [checkshape c]
12if { [regexp {Faulty} $che ] == 1 } {
13 puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
14 puts "Body of the script was NOT executed"
15 renamevar c result
16} else {
17 puts "BUC60409 OK (shape 1): Source shape is valid"
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 bfuse result c s
26 }
27}
28set square 39.0894
29set 2dviewer 0