[occt.git] / tests / bugs / caf / bug28428

puts "==========="
puts "OCC28428: BinMNaming_NamedShapeDriver f a i l s if there are no nodes in NamedShape"
puts "==========="
puts ""

pload QAcommands

NewDocument D1 BinOcaf
# Create TNaming_Builder on a label without putthing shapes
BuildNamedShape D1 0:1 P
set aTmpFile ${imagedir}/${casename}.cbf
SaveAs D1 $aTmpFile
Close D1
# This produced a NamedShape driver failure with catching by general driver
# and output a failure message (caught by parse.rules)
Open $aTmpFile D2
Close D2
file delete -force $aTmpFile
Commit	Line	Data
6d1e872b	1	puts "==========="
30fa5f67	2	puts "OCC28428: BinMNaming_NamedShapeDriver f a i l s if there are no nodes in NamedShape"
6d1e872b	3	puts "==========="
6d1e872b	4	puts ""
6d1e872b	5
	6	pload QAcommands
	7
	8	NewDocument D1 BinOcaf
	9	# Create TNaming_Builder on a label without putthing shapes
	10	BuildNamedShape D1 0:1 P
30fa5f67	11	set aTmpFile ${imagedir}/${casename}.cbf
30fa5f67	12	SaveAs D1 $aTmpFile
6d1e872b	13	Close D1
6d1e872b	14	# This produced a NamedShape driver failure with catching by general driver
7b5e532f	15	# and output a failure message (caught by parse.rules)
30fa5f67	16	Open $aTmpFile D2
6d1e872b	17	Close D2
30fa5f67	18	file delete -force $aTmpFile