809eca9d |
1 | puts "================" |
2 | puts "OCC22728" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################################### |
6 | # STEP export API does not provide possibility to control output stream |
7 | ###################################################################################### |
8 | |
9 | set BugNumber OCC22728 |
10 | |
11 | box b 10 10 10 |
12 | |
13 | cd ${imagedir} |
14 | |
15 | set text [stepwrite a b test.step] |
16 | |
17 | if { [regexp "File test.step written" $text] != 1 } { |
18 | puts "Faulty ${BugNumber}" |
19 | } else { |
20 | puts "OK ${BugNumber}" |
21 | } |
22 | |