4 XOpen [locate_data_file bug23384-doc_subshapes_plain.xbf] 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
11 param write.stepcaf.subshapes.name 1
13 WriteStep doc $imagedir/doc_subshapes.stp
15 param read.stepcaf.subshapes.name 1
17 ReadStep after_doc $imagedir/doc_subshapes.stp
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
25 if { ${l0} != ${l0_1} ||
31 ${nbname} != ${nbname_1} ||
33 puts "Error : Document is read/written wrong!"
38 file delete -force $imagedir/doc_subshapes.stp