a87752f3 |
1 | pload QAcommands |
2 | |
3 | puts "================" |
4 | puts "OCC395" |
5 | puts "SAM1296" |
6 | puts "================" |
7 | puts "" |
8 | ############################################################## |
9 | ## After merge two edges with help GeomConvert_CompCurveToBSplineCurve result is bad. |
10 | ############################################################## |
11 | |
12 | restore [locate_data_file OCC395-1.brep] e1 |
13 | |
14 | set che [checkshape e1] |
15 | if { [regexp {Faulty} $che ] == 1 } { |
16 | puts "Faulty OCC395: Source shape is invalid. It was detected by Checkshape command" |
17 | puts "Body of the script was NOT executed" |
18 | renamevar e1 result |
19 | } else { |
20 | puts "OCC395 OK: Source shape is valid" |
21 | |
22 | restore [locate_data_file OCC395-2.brep] e2 |
23 | set che [checkshape e2] |
24 | if { [regexp {Faulty} $che ] == 1 } { |
25 | puts "Faulty OCC395: Source shape is invalid. It was detected by Checkshape command" |
26 | puts "Body of the script was NOT executed" |
27 | renamevar e2 result |
28 | } else { |
29 | puts "OCC395 OK: Source shape is valid" |
30 | OCC395 result e1 e2 |
31 | } |
32 | } |
33 | |
58cf74e0 |
34 | checkprops result -l 34.9073 |
35 | checkshape result |
36 | checksection result |
5747059b |
37 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
a87752f3 |
38 | |
39 | |