[occt.git] / tests / bugs / step / bug3883_4

puts "======="
puts "OCC3883"
puts "======="
puts ""
#######################################################
# Problems of reading colors and layers in XDEDRAWEXE
#######################################################

set theColors ""
set theLayers ""

ReadStep D [locate_data_file bug3883_xr2-ct-214_plate.stp]

set theColors [XGetAllColors D]
set theLayers [XGetAllLayers D]

if {$theColors == ""} {
  puts "ERROR: OCC3883 is reproduced. Colors have not been read."
}
if {$theLayers == ""} {
  puts "ERROR: OCC3883 is reproduced. Layers have not been read."
}
Commit	Line	Data
9c80aadf	1	puts "======="
	2	puts "OCC3883"
	3	puts "======="
	4	puts ""
	5	#######################################################
	6	# Problems of reading colors and layers in XDEDRAWEXE
	7	#######################################################
	8
	9	set theColors ""
	10	set theLayers ""
	11
	12	ReadStep D [locate_data_file bug3883_xr2-ct-214_plate.stp]
	13
	14	set theColors [XGetAllColors D]
	15	set theLayers [XGetAllLayers D]
	16
	17	if {$theColors == ""} {
	18	puts "ERROR: OCC3883 is reproduced. Colors have not been read."
	19	}
	20	if {$theLayers == ""} {
	21	puts "ERROR: OCC3883 is reproduced. Layers have not been read."
	22	}