mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
36 lines
861 B
Plaintext
Executable File
36 lines
861 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
|
|
|
|
if [ catch {SaveAs $docName ${imagedir}/${docName}.xml} ] {
|
|
puts "Error : (SaveAs)"
|
|
} else {
|
|
puts "OK : (SaveAs)"
|
|
}
|
|
|
|
exec cp ${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"
|
|
}
|
|
|