809eca9d |
1 | puts "========================" |
2 | puts "OCC22833" |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Command "checkshape" in DRAWEXE give error "Self intersection wire" on attached shape |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC22833 |
10 | |
11 | restore [locate_data_file OCC22833-bugInt.brep] result |
12 | |
13 | set text [checkshape result f] |
14 | set last1 [lindex $text end] |
15 | set last2 [lindex $text end-1] |
16 | |
17 | set status 0 |
18 | set s1 "OK" |
19 | set s2 "looks" |
20 | |
21 | if { [string equal $last1 $s1] && [string equal $last2 $s2] } { |
22 | set status 0 |
23 | } else { |
24 | set status 1 } |
25 | |
26 | if { ${status} != 0 } { |
27 | puts "Faulty ${BugNumber}" |
28 | } else { |
29 | puts "OK ${BugNumber}" |
30 | } |
31 | |
58cf74e0 |
32 | checkprops result -s 63427.2 |
33 | checkshape result |
5747059b |
34 | checkview -display result -3d -path ${imagedir}/${test_image}.png |