mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
115 lines
3.3 KiB
Plaintext
115 lines
3.3 KiB
Plaintext
puts "TODO OCC12345 ALL: OCC1919 Error"
|
|
|
|
puts "================"
|
|
puts "OCC1919"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Incorrect locale management in XmlDrivers_DocumentRetrievalDriver::Read()
|
|
#######################################################################################
|
|
|
|
pload QAcommands
|
|
|
|
set USA_Label 0:10
|
|
set Italian_Label 0:20
|
|
set USA_Real 123.456
|
|
set Italian_Real 123,456
|
|
#set aFile ${filedir}/OCC1919-[file tail [info script]].xml
|
|
set IsGood 1
|
|
|
|
# Create document
|
|
NewDocument D XmlOcaf
|
|
UndoLimit D 100
|
|
NewCommand D
|
|
|
|
Label D ${USA_Label}
|
|
Label D ${Italian_Label}
|
|
|
|
# Set USA locale
|
|
OCC1919_set en_US
|
|
set en_US_local [lindex [OCC1919_get] 2]
|
|
if { ${en_US_local} != "en_US" } {
|
|
puts "OCC1919 Error : USA - English (ISO-8859-1) locale not seted"
|
|
set IsGood 0
|
|
}
|
|
|
|
SetReal D ${USA_Label} ${USA_Real}
|
|
|
|
# Get a value of the attribute
|
|
set USA_IsDone [catch {set new_USA_Real [GetReal D ${USA_Label}]} message]
|
|
if { ${USA_IsDone} != 0 || ${new_USA_Real}!=${USA_Real} } {
|
|
puts ${message}
|
|
puts "USA_Real=${USA_Real} new_USA_Real=${new_USA_Real} "
|
|
puts "OCC1919 Error : Get bad value of TDataStd_Real attribute"
|
|
set IsGood 0
|
|
}
|
|
|
|
# Set italian locale
|
|
OCC1919_set it
|
|
set it_local [lindex [OCC1919_get] 2]
|
|
if { ${it_local} != "it" } {
|
|
puts "OCC1919 Error : Italian locale not seted"
|
|
set IsGood 0
|
|
}
|
|
|
|
OCC1919_real D ${Italian_Label} ${Italian_Real}
|
|
|
|
# Get a value of the attribute
|
|
set Italian_IsDone [catch {set new_Italian_Real [GetReal D ${Italian_Label}]} message]
|
|
if { ${Italian_IsDone} != 0 || ${new_Italian_Real}!=${Italian_Real} } {
|
|
puts ${message}
|
|
puts "Italian_Real=${Italian_Real} new_Italian_Real=${new_Italian_Real}"
|
|
puts "OCC1919 Error : Get bad value of TDataStd_Real attribute"
|
|
set IsGood 0
|
|
}
|
|
|
|
# Get a value of the attribute
|
|
set USA_IsDone [catch {set new_USA_Real [GetReal D ${USA_Label}]} message]
|
|
if { ${USA_IsDone} != 0 || ${new_USA_Real}!=${Italian_Real} } {
|
|
puts ${message}
|
|
puts "Italian_Real=${Italian_Real} new_USA_Real=${new_USA_Real}"
|
|
puts "OCC1919 Error : Get bad value of TDataStd_Real attribute"
|
|
set IsGood 0
|
|
}
|
|
|
|
# Store the document
|
|
set aTmpFile ${imagedir}/${casename}.xml
|
|
file delete $aTmpFile
|
|
SaveAs D $aTmpFile
|
|
if { ![file exists $aTmpFile] } {
|
|
puts "OCC1919 Error : There is not file"
|
|
set IsGood 0
|
|
}
|
|
Close D
|
|
|
|
# Set en_US locale
|
|
OCC1919_set en_US
|
|
set en_US_local [lindex [OCC1919_get] 2]
|
|
if { ${en_US_local} != "en_US" } {
|
|
puts "OCC1919 Error : USA - English (ISO-8859-1) locale not seted"
|
|
set IsGood 0
|
|
}
|
|
|
|
# Restore the document
|
|
Open $aTmpFile DD
|
|
file delete -force $aTmpFile
|
|
|
|
# Get a value of the attribute
|
|
set USA_IsDone [catch {set new_USA_Real [GetReal DD ${USA_Label}]} message]
|
|
set Italian_IsDone [catch {set new_Italian_Real [GetReal DD ${Italian_Label}]} message]
|
|
if { ${USA_IsDone} != 0 || ${Italian_IsDone} != 0 || ${new_USA_Real}!=${new_Italian_Real} || ${new_Italian_Real}!=${USA_Real} } {
|
|
puts ${message}
|
|
puts "USA_Real=${USA_Real} Italian_Real=${Italian_Real}"
|
|
puts "new_USA_Real=${new_USA_Real} new_Italian_Real=${new_Italian_Real}"
|
|
puts "OCC1919 Error : Get bad value of TDataStd_Real attribute from restoring document"
|
|
set IsGood 0
|
|
}
|
|
|
|
if { ${IsGood} == 1 } {
|
|
puts "OCC1919 OK"
|
|
} else {
|
|
puts "OCC1919 Error"
|
|
}
|
|
|
|
set make_photo 0
|