puts "============"
puts "OCC23799"
puts "============"
puts ""
#######################################################################
# Crash on copying a label
#######################################################################

set BugNumber OCC23799

# Create a new document
NewDocument D

psphere s 100
explode s f

ImportShape D 0:1 s
SelectShape D 0:2 s_1 s
ForgetAll D 0:1

if { [catch [CopyLabel D 0:2 0:3] ] != 0 } {
  puts "${BugNumber}: Error copy label"
} else {
  puts "${BugNumber}: OK"
}