tests/bugs/caf/bug21231

   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