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

puts "==================================================="
puts " 0030533: Data Exchange - Crash during STEP import."
puts "==================================================="
puts ""

pload DCAF

param read.stepcaf.subshapes.name On

ReadStep D [locate_data_file bug30533.stp]

# Check imported names
set name [GetName D 0:1:1:5:1]
if {$name != "NONE"} {
  puts "Error: wrong name of subshape"
}
set name [GetName D 0:1:1:5:2]
if {$name != "NONE"} {
  puts "Error: wrong name of subshape"
}

Close D

# return param to default value
param read.stepcaf.subshapes.name Off
Commit	Line	Data
7b93ae3c	1	puts "==================================================="
	2	puts " 0030533: Data Exchange - Crash during STEP import."
	3	puts "==================================================="
	4	puts ""
	5
	6	pload DCAF
	7
	8	param read.stepcaf.subshapes.name On
	9
	10	ReadStep D [locate_data_file bug30533.stp]
	11
	12	# Check imported names
	13	set name [GetName D 0:1:1:5:1]
	14	if {$name != "NONE"} {
	15	puts "Error: wrong name of subshape"
	16	}
	17	set name [GetName D 0:1:1:5:2]
	18	if {$name != "NONE"} {
	19	puts "Error: wrong name of subshape"
	20	}
	21
	22	Close D
	23
	24	# return param to default value
	25	param read.stepcaf.subshapes.name Off