OCCT/tests/bugs/caf/bug21231

puts "TODO ?OCC12345 ALL: Error: Document not saved"
puts "TODO ?OCC12345 ALL: Error: Object obj2 not found"
puts "TODO ?OCC12345 ALL: Tcl Exception: Error: Object obj2 not found"
puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
puts "============"
puts "OCC21231"
puts "============"
puts ""
#######################################################################
#######################################################################

set BugNumber OCC21231
set status 0

pload TOBJ

# Create a new document
TObjNew TD1

TObjAddObj TD1 obj1
TObjAddObj TD1 obj2
TObjAddObj TD1 obj3

set parent "obj1 obj2 obj2"
set children "ch11 ch21 ch22"
for { set i 0} {$i <= 2} {incr i} {
  set p [lindex $parent $i]
  set ch [lindex $children $i]
  TObjAddChild TD1 $p $ch
}

TObjSetRef TD1 obj1 obj2

TObjSetVal TD1 obj1 533
TObjSetVal TD1 obj2 -r 3 3.14 2.78 0.123

# Save the document
set aFile $imagedir/${test_image}-[file tail [info script]].cbf
catch {[file delete ${aFile}]}
catch {TObjSave TD1 ${aFile}}
if { ![file exists ${aFile}] } {
   set status 1
   puts "There is not ${aFile} file; TObjSave command: Error"
   puts "${BugNumber}: ERROR"
} else {
   puts "Save the document to ${aFile} file"
}

TObjClose TD1
unset TD1

# Restore the document
if [catch { TObjLoad TD2 ${aFile} } catch_result] {
   puts "${BugNumber}: ERROR"
}

# check children of obj2
set retChh [TObjGetChildren TD2 obj2]
for { set i 1 } { $i <= 2} {incr i} {
  set chh [lindex $retChh [expr $i - 1]]
  set oldCh [lindex $children $i]
  if { $chh != $oldCh } {
    set status 1
    puts "${BugNumber}: check children of obj2; ERROR (case 1)"
  }
}

# check reference from obj1
set retRef [TObjGetRef TD2 obj1]
if { $retRef != "obj2" } {
    set status 1
    puts "${BugNumber}: check reference from obj1; ERROR (case 2)"
}

# check stored single integer value
set retInt [TObjGetVal TD2 obj1 -i]
if { $retInt != 533 } {
    set status 1
    puts "${BugNumber}: check stored single integer value; ERROR (case 3)"
}

# check stored array of doubles
set retDbl [TObjGetVal TD2 obj2 -r]
set nbVal [llength $retDbl]
if { $nbVal != 3 } {
    set status 1
    puts "${BugNumber}: check stored array of doubles; ERROR (case 4)"
}

if { ${status} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}