1 puts " =================================================================== "
2 puts " 0029669: Crash on opening a document with same Ocaf attributes with different IDs"
3 puts " =================================================================== "
11 set aGuid1 "12e94541-6dbc-11d4-b9c8-0060b0ee281b"
12 set aGuid2 "12e94541-6dbc-11d4-b9c8-0060b0ee281d"
14 foreach format {{XmlOcaf xml} {BinOcaf cbf}} {
16 NewDocument D [lindex $format 0]
18 SetInteger D $aLabel $aVal1 $aGuid1
19 SetInteger D $aLabel 100
20 SetInteger D $aLabel $aVal2 $aGuid2
22 set aFile ${imagedir}/${casename}.[lindex $format 1]
26 if { ! [file exists $aFile] } {
27 puts "Error: cannot find file $aFile, document not saved"
31 set val1 [GetInteger D $aLabel $aGuid1]
32 set val2 [GetInteger D $aLabel $aGuid2]
33 if { $val1 != $aVal1 } {
34 puts "Error: found $val1 while expected $aVal1"
36 if { $val2 != $aVal2 } {
37 puts "Error: found $val2 while expected $aVal2"