3bea4c16 |
1 | puts "============" |
2 | puts "OCC21231" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | ####################################################################### |
7 | |
8 | set BugNumber OCC21231 |
9 | set status 0 |
10 | |
11 | pload TOBJ |
12 | |
13 | # Create a new document |
14 | TObjNew TD1 |
15 | |
16 | TObjAddObj TD1 obj1 |
17 | TObjAddObj TD1 obj2 |
18 | TObjAddObj TD1 obj3 |
19 | |
20 | set parent "obj1 obj2 obj2" |
21 | set children "ch11 ch21 ch22" |
22 | for { set i 0} {$i <= 2} {incr i} { |
23 | set p [lindex $parent $i] |
24 | set ch [lindex $children $i] |
25 | TObjAddChild TD1 $p $ch |
26 | } |
27 | |
28 | TObjSetRef TD1 obj1 obj2 |
29 | |
30 | TObjSetVal TD1 obj1 533 |
31 | TObjSetVal TD1 obj2 -r 3 3.14 2.78 0.123 |
32 | |
33 | # Save the document |
34 | set aFile $imagedir/${test_image}-[file tail [info script]].cbf |
35 | catch {[file delete ${aFile}]} |
36 | catch {TObjSave TD1 ${aFile}} |
37 | if { ![file exists ${aFile}] } { |
38 | set status 1 |
39 | puts "There is not ${aFile} file; TObjSave command: Error" |
40 | puts "${BugNumber}: ERROR" |
41 | } else { |
42 | puts "Save the document to ${aFile} file" |
43 | } |
44 | |
45 | TObjClose TD1 |
46 | unset TD1 |
47 | |
48 | # Restore the document |
49 | if [catch { TObjLoad TD2 ${aFile} } catch_result] { |
50 | puts "${BugNumber}: ERROR" |
51 | } |
52 | |
53 | # check children of obj2 |
54 | set retChh [TObjGetChildren TD2 obj2] |
55 | for { set i 1 } { $i <= 2} {incr i} { |
56 | set chh [lindex $retChh [expr $i - 1]] |
57 | set oldCh [lindex $children $i] |
58 | if { $chh != $oldCh } { |
59 | set status 1 |
60 | puts "${BugNumber}: check children of obj2; ERROR (case 1)" |
61 | } |
62 | } |
63 | |
64 | # check reference from obj1 |
65 | set retRef [TObjGetRef TD2 obj1] |
66 | if { $retRef != "obj2" } { |
67 | set status 1 |
68 | puts "${BugNumber}: check reference from obj1; ERROR (case 2)" |
69 | } |
70 | |
71 | # check stored single integer value |
72 | set retInt [TObjGetVal TD2 obj1 -i] |
73 | if { $retInt != 533 } { |
74 | set status 1 |
75 | puts "${BugNumber}: check stored single integer value; ERROR (case 3)" |
76 | } |
77 | |
78 | # check stored array of doubles |
79 | set retDbl [TObjGetVal TD2 obj2 -r] |
80 | set nbVal [llength $retDbl] |
81 | if { $nbVal != 3 } { |
82 | set status 1 |
83 | puts "${BugNumber}: check stored array of doubles; ERROR (case 4)" |
84 | } |
85 | |
86 | if { ${status} != 0 } { |
87 | puts "Faulty ${BugNumber}" |
88 | } else { |
89 | puts "OK ${BugNumber}" |
90 | } |
91 | |