[occt.git] / tests / bugs / caf / bug23799

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"
}
Commit	Line	Data
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	}