--- /dev/null
+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"
+}