[occt.git] / tests / bugs / xde / bug23895

puts "============"
puts "OCC23895"
puts "============"
puts ""
#################################################################
# XCAF document shoud store names for subfigures from IGES files
#################################################################

ReadIges D [locate_data_file bug23895_test.igs]

set aName [XCheckProps D 0 0:1:1:2]

if { [regexp "ARROW" "$aName"] } {
    puts "Ok: Subfigure name has been read correctly."
} else {
    puts "Error: Subfigure name has not been read."
}
Commit	Line	Data
275e812f	1	puts "============"
	2	puts "OCC23895"
	3	puts "============"
	4	puts ""
	5	#################################################################
	6	# XCAF document shoud store names for subfigures from IGES files
	7	#################################################################
	8
	9	ReadIges D [locate_data_file bug23895_test.igs]
	10
	11	set aName [XCheckProps D 0 0:1:1:2]
	12
	13	if { [regexp "ARROW" "$aName"] } {
	14	puts "Ok: Subfigure name has been read correctly."
	15	} else {
	16	puts "Error: Subfigure name has not been read."
	17	}
	18