1 puts "TODO OCC12345 ALL: OCC170 Error"
3 puts "========================"
6 puts "========================"
9 set newDocName OCC170_2
10 set str1 "~!@#$%^&*():;'{}\|?/.>,<~!@#$%^&*():;'{}\|?/.>,<#$%#$%$%^&*():;'{}\|$%^&*(@#$%^&*():;'{}\|¦/"
12 NewDocument $docName XmlOcaf
14 SetComment $docName 0:2 $str1
16 file delete ${imagedir}/${docName}.xml
17 file delete ${imagedir}/${newDocName}.xml
19 if [ catch {SaveAs $docName ${imagedir}/${docName}.xml} ] {
20 puts "Error : (SaveAs)"
25 file copy ${imagedir}/${docName}.xml ${imagedir}/${newDocName}.xml
27 Open ${imagedir}/${newDocName}.xml $newDocName
29 # Retrieve string from document and compare it with initial value
30 set str2 [GetComment $newDocName 0:2]
31 if {$str1 == $str2} {puts "OCC170 OK"} else {