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