occt/tests/caf/basic/W12

puts "0031972: Application Framework, FSD_CmpFile - e x c e p t i o n on reading file in old persistence format with Windows EOL"
set QA_DUP 0

# write text document with Windows EOLs
set aRefFilePath [locate_data_file caf001_refList.std]
set aTmpFilePath "${imagedir}/${casename}.std"

set aFileIn [open "$aRefFilePath" r]
set aLines [split [read $aFileIn] "\n"]
close $aFileIn
set aFileOut [open "$aTmpFilePath" w]
fconfigure $aFileOut -translation crlf
foreach aLineIter $aLines {
  puts $aFileIn $aLineIter
}
close $aFileOut

Open ${aTmpFilePath} D

# Add an attribute to a data framework
set aSetAttr1 {0:1:5 0:1:3 0:1:2 0:1:1 0:1:4}
set aLabel 0:1

# Get a value of the attribute
set IsGood 1
set aMessage1 "Add TDataStd_ReferenceList attribute: Error"
set aGetAttr1 [GetReferenceList D ${aLabel}]
set aLenRead [llength ${aGetAttr1}]
set aLenSet  [llength ${aSetAttr1}]

if { ${aLenRead} != ${aLenSet} } {
  set IsGood 0
  puts "aLenRead=${aLenRead}"
  puts ${aMessage1}
}

if { ${IsGood} == 0} { return }

for {set i 0} {$i < $aLenRead} {incr i} {
  set aGetAttr11 [lindex ${aGetAttr1} $i]
  set aGetAttr21 [lindex ${aSetAttr1} $i]
  if { ${aGetAttr11} != ${aGetAttr21} } {
     set IsGood 0;puts "i=${i}"
     puts "aGetAttr11=${aGetAttr11}"
     puts "aGetAttr21=${aGetAttr21}"
     break
  }
}

if { ${IsGood} == 0} {
  puts ${aMessage1}
} else {
  puts "Add TDataStd_ReferenceList attribute: OK"
}