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

puts "=========="
puts "OCC24822"
puts "=========="
puts ""
###################################################
# Solve selection fails after copying
###################################################

restore [locate_data_file bug24822_face.brep] f
explode f w

NewDocument D XmlOcaf
ImportShape D 0:1 f
SelectShape D 0:2 f_1 f
SolveSelection D 0:2

CopyLabel D 0:2 0:3

if [catch { SolveSelection D 0:3 } ] {
  puts "Error: Solve selection fails after copying"
} else {
  puts "OK: Solve selection is good after copying"
}
Commit	Line	Data
f18ccc8c	1	puts "=========="
	2	puts "OCC24822"
	3	puts "=========="
	4	puts ""
	5	###################################################
	6	# Solve selection fails after copying
	7	###################################################
	8
	9	restore [locate_data_file bug24822_face.brep] f
	10	explode f w
	11
	12	NewDocument D XmlOcaf
	13	ImportShape D 0:1 f
	14	SelectShape D 0:2 f_1 f
	15	SolveSelection D 0:2
	16
	17	CopyLabel D 0:2 0:3
	18
	19	if [catch { SolveSelection D 0:3 } ] {
	20	puts "Error: Solve selection fails after copying"
	21	} else {
	22	puts "OK: Solve selection is good after copying"
	23	}