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

puts "========================"
puts "0030014: Step File import does not create shapes, after transfer roots"
puts "========================"

# Read file
stepread [locate_data_file bug30014.stp] res *

# Checking
set state [data c]
if { [regexp "135006 Entities, of which 1704 Root" $state] != 1 } {
   puts "Error : wrong count of transferred roots"
}

checknbshapes res_1 -face 3984 -shell 127 -solid 123
checkshape res_1 f
Commit	Line	Data
3d46ce87	1	puts "========================"
	2	puts "0030014: Step File import does not create shapes, after transfer roots"
	3	puts "========================"
	4
	5	# Read file
	6	stepread [locate_data_file bug30014.stp] res *
	7
	8	# Checking
	9	set state [data c]
	10	if { [regexp "135006 Entities, of which 1704 Root" $state] != 1 } {
	11	puts "Error : wrong count of transferred roots"
	12	}
	13
	14	checknbshapes res_1 -face 3984 -shell 127 -solid 123
	15	checkshape res_1 f