1 puts "TODO #23659 Mandriva2010: Error : The square of result shape is"
8 restore [locate_data_file buc60409a.brep] c
9 restore [locate_data_file buc60409b.brep] s
11 set che [checkshape c]
12 if { [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"
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"
24 puts "BUC60409 OK (shape 2): Source shape is valid"