tests/bugs/step/bug29403

   1 puts "=========="
   2 puts "OCC29403"
   3 puts "=========="
   4 puts ""
   5 #########################################################
   6 # Subshapes names are not imported from step
   7 #########################################################
   8
   9 param read.stepcaf.subshapes.name 1
  10 param write.stepcaf.subshapes.name 1
  11
  12 pload DCAF
  13
  14 ReadStep doc [locate_data_file bug29403_ECOR030312.stp]
  15 set info1 [XStat doc]
  16 regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0
  17 regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1
  18 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb
  19 regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname
  20
  21 WriteStep doc $imagedir/doc_subshapes.stp
  22
  23 ReadStep after_doc $imagedir/doc_subshapes.stp
  24
  25 set info2 [XStat after_doc]
  26 regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1
  27 regexp {level N 1 +: +([-0-9.+eE]+)} $info2 full l1_1
  28 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info2 full nb_1
  29 regexp {Number of labels with name += +([-0-9.+eE]+)} $info2 full nbname_1
  30
  31 if { ${l0} != ${l0_1} ||
  32      ${l0} != "38"    ||
  33      ${l1} != ${l1_1} ||
  34          ${l1} != "85"    ||
  35      ${nb} != ${nb_1} ||
  36          ${nb} != "123"   ||
  37      ${nbname} != ${nbname_1} ||
  38          ${nbname} != "123"} {
  39     puts "Error : Document is read/written wrong!"
  40 }
  41
  42 Close doc
  43 Close after_doc
  44 file delete -force $imagedir/doc_subshapes.stp
  45
  46 param read.stepcaf.subshapes.name 0
  47 param write.stepcaf.subshapes.name 0