3bea4c16 |
1 | puts "============" |
2 | puts "OCC12905" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Invalid writing to IGES |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC12905 |
10 | |
11 | vertex v1 0 0 0 |
12 | vertex v2 0 0 10 |
13 | edge e1 v1 v2 |
14 | |
15 | set EdgeFile ${imagedir}/${BugNumber}.igs |
16 | file delete ${EdgeFile} |
17 | |
18 | set IsOk 1 |
19 | |
20 | if {[catch { brepiges e1 ${EdgeFile} } ]} { |
21 | set IsOk 0 |
22 | } else { |
23 | if {[catch { igesbrep ${EdgeFile} result * } ]} { |
24 | set IsOk 0 |
25 | } else { |
a4eba920 |
26 | checknbshapes result -vertex 2 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 3 |
3bea4c16 |
27 | } |
28 | } |
29 | |
30 | # Resume |
31 | puts "" |
32 | if { ${IsOk} == 0 } { |
33 | puts "Faulty ${BugNumber}" |
34 | } else { |
35 | puts "OK ${BugNumber}" |
36 | } |
37 | |