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

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