643cc6aa |
1 | puts "============" |
2 | puts "OCC23799" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Crash on copying a label |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC23799 |
10 | |
11 | # Create a new document |
12 | NewDocument D |
13 | |
14 | psphere s 100 |
15 | explode s f |
16 | |
17 | ImportShape D 0:1 s |
18 | SelectShape D 0:2 s_1 s |
19 | ForgetAll D 0:1 |
20 | |
21 | if { [catch [CopyLabel D 0:2 0:3] ] != 0 } { |
22 | puts "${BugNumber}: Error copy label" |
23 | } else { |
24 | puts "${BugNumber}: OK" |
25 | } |