puts "==========="
puts "OCC28428"
puts "==========="
puts ""
########################################################################
# BinMNaming_NamedShapeDriver fails if there are no nodes in NamedShape
########################################################################

pload QAcommands

NewDocument D1 BinOcaf
# Create TNaming_Builder on a label without putthing shapes
BuildNamedShape D1 0:1 P
SaveAs D1 $imagedir/bug28428_new.cbf
Close D1
# This produced a NamedShape driver failure with catching by general driver
# and output a failure message (caught by parse.rules)
Open $imagedir/bug28428_new.cbf D2
Close D2