4 if {[array get env os_type] != ""} {
7 XOpen [locate_data_file bug23384-doc_subshapes.dxc] doc
9 regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0
10 regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1
11 regexp {level N 2 +: +([-0-9.+eE]+)} $info1 full l2
12 regexp {level N 3 +: +([-0-9.+eE]+)} $info1 full l3
13 regexp {level N 4 +: +([-0-9.+eE]+)} $info1 full l4
14 regexp {level N 5 +: +([-0-9.+eE]+)} $info1 full l5
15 regexp {level N 6 +: +([-0-9.+eE]+)} $info1 full l6
16 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb
17 regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname
19 param write.stepcaf.subshapes.name 1
21 WriteStep doc $imagedir/doc_subshapes.stp
23 param read.stepcaf.subshapes.name 1
25 ReadStep after_doc $imagedir/doc_subshapes.stp
27 set info2 [XStat after_doc]
28 regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1
29 regexp {level N 1 +: +([-0-9.+eE]+)} $info2 full l1_1
30 regexp {level N 2 +: +([-0-9.+eE]+)} $info2 full l2_1
31 regexp {level N 3 +: +([-0-9.+eE]+)} $info2 full l3_1
32 regexp {level N 4 +: +([-0-9.+eE]+)} $info2 full l4_1
33 regexp {level N 5 +: +([-0-9.+eE]+)} $info2 full l5_1
34 regexp {level N 6 +: +([-0-9.+eE]+)} $info2 full l6_1
35 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info2 full nb_1
36 regexp {Number of labels with name += +([-0-9.+eE]+)} $info2 full nbname_1
38 if { ${l0} != ${l0_1} ||
46 ${nbname} != ${nbname_1} } {
47 puts "Error : Document is read/written wrong!"