319e4241 |
1 | # Original bug : 23384 |
2 | # Date : 16 Aug 2012 |
3 | |
4 | if {[array get env os_type] != ""} { |
5 | set os $env(os_type) |
6 | } |
34dd4990 |
7 | XOpen [locate_data_file bug23384-doc_subshapes.dxc] doc |
319e4241 |
8 | set info1 [XStat 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 |
18 | |
19 | param write.stepcaf.subshapes.name 1 |
60874ff8 |
20 | |
21 | WriteStep doc $imagedir/doc_subshapes.stp |
22 | |
319e4241 |
23 | param read.stepcaf.subshapes.name 1 |
60874ff8 |
24 | |
25 | ReadStep after_doc $imagedir/doc_subshapes.stp |
319e4241 |
26 | |
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 |
37 | |
38 | if { ${l0} != ${l0_1} || |
39 | ${l1} != ${l1_1} || |
40 | ${l2} != ${l2_1} || |
41 | ${l3} != ${l3_1} || |
42 | ${l4} != ${l4_1} || |
43 | ${l5} != ${l5_1} || |
44 | ${l6} != ${l6_1} || |
45 | ${nb} != ${nb_1} || |
46 | ${nbname} != ${nbname_1} } { |
47 | puts "Error : Document is read/written wrong!" |
319e4241 |
48 | } |
49 | |
50 | |
51 | |
52 | |
53 | |
54 | |
55 | |
56 | |
57 | |
58 | |
59 | |
60 | |