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

set os $env(os_type)

puts "================"
puts "OCC23379"
puts "================"
puts ""
#################################
# Exporting single point into STEP produces a compound with two points
#################################

pload XDE

set filedir ${imagedir}

set Name bug23379_point
set brepFileName ${Name}.brep
set stepFileName ${imagedir}/${Name}.step

restore [locate_data_file ${brepFileName}] point

stepwrite 0 point ${stepFileName}
stepread ${stepFileName} a *
set L [llength [explode a_1]]
puts "L=$L"

if { ${L} == 1} {
  puts "OK : Number of points is good"
} else {
  puts "Error : Number of points is bad"
}

catch {exec rm -f ${stepFileName}}
Commit	Line	Data
66d6976f	1	set os $env(os_type)
66d6976f	2
	3	puts "================"
	4	puts "OCC23379"
	5	puts "================"
	6	puts ""
	7	#################################
	8	# Exporting single point into STEP produces a compound with two points
	9	#################################
	10
	11	pload XDE
	12
	13	set filedir ${imagedir}
	14
	15	set Name bug23379_point
	16	set brepFileName ${Name}.brep
	17	set stepFileName ${imagedir}/${Name}.step
	18
	19	restore [locate_data_file ${brepFileName}] point
	20
	21	stepwrite 0 point ${stepFileName}
	22	stepread ${stepFileName} a *
	23	set L [llength [explode a_1]]
	24	puts "L=$L"
	25
	26	if { ${L} == 1} {
	27	puts "OK : Number of points is good"
	28	} else {
	29	puts "Error : Number of points is bad"
	30	}
	31
	32	catch {exec rm -f ${stepFileName}}