tests/bugs/xde/bug23384

   1 # Original bug : 23384
   2 # Date : 16 Aug 2012
   3 pload DCAF
   4 XOpen [locate_data_file bug23384-doc_subshapes_plain.xbf] doc
   5 set info1 [XStat doc]
   6 regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0
   7 regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1
   8 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb
   9 regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname
  10
  11 param write.stepcaf.subshapes.name 1
  12
  13     WriteStep doc $imagedir/doc_subshapes.stp
  14
  15 param read.stepcaf.subshapes.name 1
  16
  17     ReadStep after_doc $imagedir/doc_subshapes.stp
  18
  19 set info2 [XStat after_doc]
  20 regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1
  21 regexp {level N 1 +: +([-0-9.+eE]+)} $info2 full l1_1
  22 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info2 full nb_1
  23 regexp {Number of labels with name += +([-0-9.+eE]+)} $info2 full nbname_1
  24
  25 if { ${l0} != ${l0_1} ||
  26      ${l0} != "4"     ||
  27      ${l1} != ${l1_1} ||
  28          ${l1} != "131"   ||
  29      ${nb} != ${nb_1} ||
  30          ${nb} != "135"   ||
  31      ${nbname} != ${nbname_1} ||
  32          ${nbname} != "135"} {
  33     puts "Error : Document is read/written wrong!"
  34 }
  35
  36 Close doc
  37 Close after_doc
  38 file delete -force $imagedir/doc_subshapes.stp