Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60682
1 puts "TODO OCC12345 ALL: Faulty BUC60682"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
3 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_5"
4
5 pload QAcommands
6
7 puts "=================="
8 puts "BUC60682"
9 puts "=================="
10
11 restore [locate_data_file buc60682a.brep] shell1 
12 restore [locate_data_file buc60682b.brep] shell2
13
14 set che [checkshape shell1]
15 if { [regexp {Faulty} $che ] == 1 } {
16     puts "Faulty BUC60682 (shell 1): Source shape is invalid. It was detected by Checkshape command"
17     puts "Body of the script was NOT executed"
18     renamevar shell1 result
19 } else {
20     puts "BUC60682 OK (shell 1): Source shape is valid"
21     set che [checkshape shell2]
22     if { [regexp {Faulty} $che ] == 1 } {
23         puts "Faulty BUC60682 (shell 2): Source shape is invalid. It was detected by Checkshape command"
24         puts "Body of the script was NOT executed"
25         renamevar shell2 result
26     } else {
27         puts "BUC60682 OK (shell 2): Source shape is valid"
28         ksection result shell1 shell2 1000 0.0001 0.00001 0 
29     }
30 }
31 set square 0
32 set 2dviewer 0