0023550: Variable imagedir is not defined in interactive run of tests
[occt.git] / tests / bugs / xde / bug23384
CommitLineData
319e4241 1# Original bug : 23384
2# Date : 16 Aug 2012
3
4if {[array get env os_type] != ""} {
5 set os $env(os_type)
6}
34dd4990 7XOpen [locate_data_file bug23384-doc_subshapes.dxc] doc
319e4241 8set info1 [XStat doc]
9regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0
10regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1
11regexp {level N 2 +: +([-0-9.+eE]+)} $info1 full l2
12regexp {level N 3 +: +([-0-9.+eE]+)} $info1 full l3
13regexp {level N 4 +: +([-0-9.+eE]+)} $info1 full l4
14regexp {level N 5 +: +([-0-9.+eE]+)} $info1 full l5
15regexp {level N 6 +: +([-0-9.+eE]+)} $info1 full l6
16regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb
17regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname
18
19param write.stepcaf.subshapes.name 1
60874ff8 20
21 WriteStep doc $imagedir/doc_subshapes.stp
22
319e4241 23param read.stepcaf.subshapes.name 1
60874ff8 24
25 ReadStep after_doc $imagedir/doc_subshapes.stp
319e4241 26
27set info2 [XStat after_doc]
28regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1
29regexp {level N 1 +: +([-0-9.+eE]+)} $info2 full l1_1
30regexp {level N 2 +: +([-0-9.+eE]+)} $info2 full l2_1
31regexp {level N 3 +: +([-0-9.+eE]+)} $info2 full l3_1
32regexp {level N 4 +: +([-0-9.+eE]+)} $info2 full l4_1
33regexp {level N 5 +: +([-0-9.+eE]+)} $info2 full l5_1
34regexp {level N 6 +: +([-0-9.+eE]+)} $info2 full l6_1
35regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info2 full nb_1
36regexp {Number of labels with name += +([-0-9.+eE]+)} $info2 full nbname_1
37
38if { ${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