mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
52 lines
1.4 KiB
Plaintext
52 lines
1.4 KiB
Plaintext
puts "================"
|
|
puts "OCC2269"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# XML persistance should be more robust
|
|
#######################################################################################
|
|
#
|
|
# Tested file is contains 3 labels with TDataStd_RealArray attributes
|
|
# 0:2 label has good TDataStd_RealArray attribute
|
|
# 0:22 label has bad TDataStd_RealArray attribute
|
|
# 0:222 label has good TDataStd_RealArray attribute
|
|
#
|
|
#######################################################################################
|
|
|
|
#set ScriptDir $XmlDir
|
|
#source ${ScriptDir}/begin
|
|
#source ${ScriptDir}/002/begin
|
|
|
|
#set aTestName "OCC2269"
|
|
#set WorkDirectory ${filedir}
|
|
#set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
#catch {Close D}
|
|
|
|
set IsGood 1
|
|
Open [locate_data_file OCC2269.xml] DD
|
|
|
|
if [catch {XDumpDF DD } result] {
|
|
puts "Error during dump ${aFile} file"
|
|
set IsGood 0
|
|
}
|
|
if [catch {CheckLabel DD 0:2} result] {
|
|
puts "Error during search 0:2 label in ${aFile} file"
|
|
set IsGood 0
|
|
}
|
|
if [catch {CheckLabel DD 0:22} result] {
|
|
puts "Error during search 0:22 label in ${aFile} file"
|
|
set IsGood 0
|
|
}
|
|
if [catch {CheckLabel DD 0:222} result] {
|
|
puts "Error during search 0:222 label in ${aFile} file"
|
|
set IsGood 0
|
|
}
|
|
|
|
Close DD
|
|
|
|
if { ${IsGood} == 0} {
|
|
puts "Faulty OCC2269"
|
|
} else {
|
|
puts "OK OCC2269"
|
|
}
|