tests/bugs/caf/bug170_3

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