5 #################################################################
6 # XCAF document shoud store names for subfigures from IGES files
7 #################################################################
9 ReadIges D [locate_data_file bug23895_test.igs]
11 set aName [XCheckProps D 0 0:1:1:2]
13 if { [regexp "ARROW" "$aName"] } {
14 puts "Ok: Subfigure name has been read correctly."
16 puts "Error: Subfigure name has not been read."