1 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"
4 # write text document with Windows EOLs
5 set aRefFilePath [locate_data_file caf001_refList.std]
6 set aTmpFilePath "${imagedir}/${casename}.std"
8 set aFileIn [open "$aRefFilePath" r]
9 set aLines [split [read $aFileIn] "\n"]
11 set aFileOut [open "$aTmpFilePath" w]
12 fconfigure $aFileOut -translation crlf
13 foreach aLineIter $aLines {
14 puts $aFileIn $aLineIter
18 Open ${aTmpFilePath} D
20 # Add an attribute to a data framework
21 set aSetAttr1 {0:1:5 0:1:3 0:1:2 0:1:1 0:1:4}
24 # Get a value of the attribute
26 set aMessage1 "Add TDataStd_ReferenceList attribute: Error"
27 set aGetAttr1 [GetReferenceList D ${aLabel}]
28 set aLenRead [llength ${aGetAttr1}]
29 set aLenSet [llength ${aSetAttr1}]
31 if { ${aLenRead} != ${aLenSet} } {
33 puts "aLenRead=${aLenRead}"
37 if { ${IsGood} == 0} { return }
39 for {set i 0} {$i < $aLenRead} {incr i} {
40 set aGetAttr11 [lindex ${aGetAttr1} $i]
41 set aGetAttr21 [lindex ${aSetAttr1} $i]
42 if { ${aGetAttr11} != ${aGetAttr21} } {
43 set IsGood 0;puts "i=${i}"
44 puts "aGetAttr11=${aGetAttr11}"
45 puts "aGetAttr21=${aGetAttr21}"
50 if { ${IsGood} == 0} {
53 puts "Add TDataStd_ReferenceList attribute: OK"