5 #######################################################################
6 #######################################################################
13 # Create a new document
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
28 TObjSetRef TD1 obj1 obj2
30 TObjSetVal TD1 obj1 533
31 TObjSetVal TD1 obj2 -r 3 3.14 2.78 0.123
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}] } {
39 puts "There is not ${aFile} file; TObjSave command: Error"
40 puts "${BugNumber}: ERROR"
42 puts "Save the document to ${aFile} file"
48 # Restore the document
49 if [catch { TObjLoad TD2 ${aFile} } catch_result] {
50 puts "${BugNumber}: ERROR"
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 } {
60 puts "${BugNumber}: check children of obj2; ERROR (case 1)"
64 # check reference from obj1
65 set retRef [TObjGetRef TD2 obj1]
66 if { $retRef != "obj2" } {
68 puts "${BugNumber}: check reference from obj1; ERROR (case 2)"
71 # check stored single integer value
72 set retInt [TObjGetVal TD2 obj1 -i]
73 if { $retInt != 533 } {
75 puts "${BugNumber}: check stored single integer value; ERROR (case 3)"
78 # check stored array of doubles
79 set retDbl [TObjGetVal TD2 obj2 -r]
80 set nbVal [llength $retDbl]
83 puts "${BugNumber}: check stored array of doubles; ERROR (case 4)"
86 if { ${status} != 0 } {
87 puts "Faulty ${BugNumber}"
89 puts "OK ${BugNumber}"