tests/bugs/caf/bug28428

   1 puts "==========="
   2 puts "OCC28428"
   3 puts "==========="
   4 puts ""
   5 ########################################################################
   6 # BinMNaming_NamedShapeDriver fails if there are no nodes in NamedShape
   7 ########################################################################
   8
   9 pload QAcommands
  10
  11 NewDocument D1 BinOcaf
  12 # Create TNaming_Builder on a label without putthing shapes
  13 BuildNamedShape D1 0:1 P
  14 SaveAs D1 $imagedir/bug28428_new.cbf
  15 Close D1
  16 # This produced a NamedShape driver failure with catching by general driver
  17 # and output a failure message (catched by parse.rules)
  18 Open $imagedir/bug28428_new.cbf D2
  19 Close D2