Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug307_1
1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
3
4 pload QAcommands
5
6 puts "================"
7 puts "OCC307"
8 puts "SAM1265"
9 puts "================"
10 puts ""
11
12 restore [locate_data_file OCC307.brep] f 
13
14 set che [checkshape f]
15 if { [regexp {Faulty} $che ] == 1} {
16     puts "Warning OCC307: Source shape is invalid. It was detected by Checkshape command"
17 } else {
18     puts "OCC307 OK: Source shape is valid"
19 }
20
21 explode f f
22
23 renamevar f w
24
25 explode w w
26
27 OCC307 result1 f_4 w_6 0
28 OCC307 result2 f_5 result1 0
29
30 puts [checkshape result1]
31 renamevar result2 result
32
33 set square 0
34 set 2dviewer 0
35
36