tests/bugs/caf/bug23799

   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 }