61c421bf |
1 | puts "============" |
2 | puts "OCC6283" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Unstable work fixshape on attached shape (different number of warnings) |
7 | ###################################################### |
8 | |
9 | set BugNumber OCC6283 |
10 | |
11 | set list [stepread [locate_data_file wgehaeuse_surface.stp] a *] |
12 | |
13 | if {[lsearch ${list} Error] > -1} { |
14 | puts "${BugNumber} : Error during reading attached IGES file" |
15 | } else { |
16 | tpcompound comp |
17 | if [catch { set fixlist [fixshape result comp 1e-7] } res] { |
18 | puts "${BugNumber}: Error during fixshape" |
19 | } else { |
20 | set index [string first "Segments were disordered; fixed\n" ${fixlist}] |
21 | if {$index != -1} { |
22 | puts "Faulty ${BugNumber}" |
23 | } else { |
24 | puts "OK ${BugNumber}" |
25 | } |
58cf74e0 |
26 | checkprops result -s 2.22665e+06 |
27 | checkshape result |
5747059b |
28 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
61c421bf |
29 | } |
30 | } |
31 | |