mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-15 05:28:47 +08:00
37 lines
905 B
Plaintext
Executable File
37 lines
905 B
Plaintext
Executable File
puts "TODO OCC12345 ALL: OCC170 Error"
|
|
|
|
puts "========================"
|
|
puts "OCC170"
|
|
puts "(case 3)"
|
|
puts "========================"
|
|
|
|
set docName OCC170
|
|
set newDocName OCC170_2
|
|
set str1 "~!@#$%^&*():;'{}\|?/.>,<~!@#$%^&*():;'{}\|?/.>,<#$%#$%$%^&*():;'{}\|$%^&*(@#$%^&*():;'{}\|¦/"
|
|
|
|
NewDocument $docName XmlOcaf
|
|
Label $docName 0:2
|
|
SetComment $docName 0:2 $str1
|
|
|
|
file delete ${imagedir}/${docName}.xml
|
|
file delete ${imagedir}/${newDocName}.xml
|
|
|
|
if [ catch {SaveAs $docName ${imagedir}/${docName}.xml} ] {
|
|
puts "Error : (SaveAs)"
|
|
} else {
|
|
puts "OK : (SaveAs)"
|
|
}
|
|
|
|
file copy ${imagedir}/${docName}.xml ${imagedir}/${newDocName}.xml
|
|
|
|
Open ${imagedir}/${newDocName}.xml $newDocName
|
|
|
|
# Retrieve string from document and compare it with initial value
|
|
set str2 [GetComment $newDocName 0:2]
|
|
if {$str1 == $str2} {puts "OCC170 OK"} else {
|
|
puts "str1=${str1}"
|
|
puts "str2=${str2}"
|
|
puts "OCC170 Error"
|
|
}
|
|
|