f1aa2b62 |
1 | pload QAcommands |
2 | |
3 | puts "========" |
4 | puts "OCC822" |
5 | puts "========" |
6 | puts "" |
7 | ##################################### |
8 | ## BRepMesh_IncrementalMesh fails on some faces |
9 | ##################################### |
10 | |
431d0f18 |
11 | if {[ catch { set info_result [OCC822_1 a1 a2 result] } ] } { |
352ffd73 |
12 | puts "Faulty OCC822" |
f1aa2b62 |
13 | } else { |
352ffd73 |
14 | if { [regexp {FAILED} $info_result] } { |
15 | puts "Faulty OCC822" |
f1aa2b62 |
16 | } |
17 | |
18 | set ExplodeList [explode result] |
19 | if {[llength ${ExplodeList}] < 1} { |
352ffd73 |
20 | puts "Faulty OCC822" |
f1aa2b62 |
21 | } |
22 | } |
23 | |
58cf74e0 |
24 | checkprops result -s 133931 |
25 | checkshape result |
5747059b |
26 | checkview -display result -2d -path ${imagedir}/${test_image}.png |