tests/bugs/caf/bug170_3

   1 puts "========================"
   2 puts "OCC170"
   3 puts "(case 3)"
   4 puts "========================"
   5
   6 set docName OCC170
   7 set newDocName OCC170_2
   8 set str1 "~!@#$%^&*():;'{}\|?/.>,<~!@#$%^&*():;'{}\|?/.>,<#$%#$%$%^&*():;'{}\|$%^&*(@#$%^&*():;'{}\|¦/"
   9
  10 NewDocument $docName XmlOcaf
  11 Label $docName 0:2
  12 SetComment $docName 0:2 $str1
  13
  14 file delete ${imagedir}/${docName}.xml
  15 file delete ${imagedir}/${newDocName}.xml
  16
  17 if [ catch {SaveAs $docName ${imagedir}/${docName}.xml} ] {
  18     puts "Error : (SaveAs)"
  19 } else {
  20     puts "OK : (SaveAs)"
  21 }
  22
  23 file copy ${imagedir}/${docName}.xml ${imagedir}/${newDocName}.xml
  24
  25 Open ${imagedir}/${newDocName}.xml $newDocName
  26
  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 {
  30   puts "str1=${str1}"
  31   puts "str2=${str2}"
  32   puts "OCC170 Error"
  33 }
  34