mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
9753e6deb9
In parallel mode, limit number of jobs in the queue to avoid slowdown occurring with long queues Obsolete DRAW tools removed Improvement of processing of test log: - log is collected as list and not as string for better performance - short table of test cases (TOC) is added in HTML log - algorithm to combine test cases in one row in HTML log is improved to avoid long lines (group bugs) Parse rules corrected to ignore irrelevant debug messages, and to correctly report tests 3rdparty export as skipped or BAD when Gl2Ps is missing or is built in incompatible mode on windows Tests corrected to pass in Debug mode on Windows
168 lines
5.4 KiB
Plaintext
168 lines
5.4 KiB
Plaintext
puts "================"
|
|
puts "OCC1724"
|
|
puts "OCC2707"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# BinOcaf: portability of binary file between platforms
|
|
#######################################################################################
|
|
|
|
set QA_DUP 0
|
|
|
|
set SetIntegerAttribute 100
|
|
set SetRealAttribute 123.45
|
|
set aFrom1 1
|
|
set aTo1 2
|
|
set SetReal1 3.21
|
|
set SetReal2 4.56
|
|
set aFrom2 11
|
|
set aTo2 12
|
|
set SetInteger1 3
|
|
set SetInteger2 4
|
|
set aLabel 0:2
|
|
|
|
|
|
#### FOR PREPARING TEST ONLY ####
|
|
#### # Create testing document
|
|
#### NewDocument Doc BinOcaf
|
|
#### UndoLimit Doc 100
|
|
#### NewCommand Doc
|
|
####
|
|
#### # Set an integer attribute
|
|
#### SetInteger Doc ${aLabel} ${SetIntegerAttribute}
|
|
####
|
|
#### # Set a real attribute
|
|
#### SetReal Doc ${aLabel} ${SetRealAttribute}
|
|
####
|
|
#### # Set a real array attribute
|
|
#### SetRealArray Doc ${aLabel} ${aFrom1} ${aTo1} ${SetReal1} ${SetReal2}
|
|
####
|
|
#### # Set an integer array attribute
|
|
#### SetIntArray Doc ${aLabel} ${aFrom2} ${aTo2} ${SetInteger1} ${SetInteger2}
|
|
####
|
|
#### NewCommand Doc
|
|
####
|
|
#### # Save the document
|
|
#### set OS $tcl_platform(os)
|
|
#### if { ${OS} == "SunOS" } {
|
|
#### puts "SunOS"
|
|
#### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-SunOS.cbf
|
|
#### } else {
|
|
#### puts "WNT"
|
|
#### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-WNT.cbf
|
|
#### }
|
|
#### puts "aFile=${aFile}"
|
|
#### catch {exec rm -f ${aFile}}
|
|
#### catch {SaveAs Doc ${aFile}}
|
|
#### if { ![file exists ${aFile}] } {
|
|
#### puts "There is not ${aFile} file; SaveAs command: Error"
|
|
#### puts "OCC1724: ERROR (case 1)"
|
|
#### }
|
|
#### catch {exec chmod 777 ${aFile}}
|
|
#### Close Doc
|
|
#### FOR PREPARING TEST ONLY ####
|
|
|
|
set IsGood 1
|
|
|
|
Open [locate_data_file OCC1724-M3-WNT.cbf] DDoc
|
|
|
|
# Get a value of integer attribute
|
|
set GetIntegerAttribute ""
|
|
set IsDone [catch {set GetIntegerAttribute [GetInteger DDoc ${aLabel}]} message]
|
|
if { ${IsDone} != 0 ||
|
|
${SetIntegerAttribute}!=${GetIntegerAttribute} } {
|
|
puts ${message}
|
|
puts "SetIntegerAttribute=${SetIntegerAttribute} GetIntegerAttribute=${GetIntegerAttribute}"
|
|
puts "Get a value of TDataStd_Integer attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 3)"
|
|
set IsGood 0
|
|
} else {
|
|
puts "Get a value of TDataStd_Integer attribute from restoring document: OK"
|
|
}
|
|
|
|
# Get a value of real attribute
|
|
set GetRealAttribute ""
|
|
set IsDone [catch {set GetRealAttribute [GetReal DDoc ${aLabel}]} message]
|
|
if { ${IsDone} != 0 ||
|
|
${SetRealAttribute}!=${GetRealAttribute} } {
|
|
puts ${message}
|
|
puts "SetRealAttribute=${SetRealAttribute} GetRealAttribute=${GetRealAttribute}"
|
|
puts "Get a value of TDataStd_Real attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 4)"
|
|
set IsGood 0
|
|
} else {
|
|
puts "Get a value of TDataStd_Real attribute from restoring document: OK"
|
|
}
|
|
|
|
# Get a value of real array attribute
|
|
set GetRealArrayAttribute ""
|
|
set IsDone [catch {set GetRealArrayAttribute [GetRealArray DDoc ${aLabel}]} message]
|
|
if { ${IsDone} != 0 } {
|
|
puts ${message}
|
|
puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 5)"
|
|
set IsGood 0
|
|
}
|
|
set aRealArrayLength [llength ${GetRealArrayAttribute}]
|
|
if { ${aRealArrayLength} != [expr ${aTo1} - ${aFrom1} + 1] } {
|
|
puts "aRealArrayLength=${aRealArrayLength}"
|
|
puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 6)"
|
|
set IsGood 0
|
|
}
|
|
set GetReal1 [lindex ${GetRealArrayAttribute} 0]
|
|
if { ${SetReal1} != ${GetReal1} } {
|
|
puts "GetReal1=${GetReal1}"
|
|
puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 7)"
|
|
set IsGood 0
|
|
}
|
|
set GetReal2 [lindex ${GetRealArrayAttribute} 1]
|
|
if { ${SetReal2} != ${GetReal2} } {
|
|
puts "GetReal2=${GetReal2}"
|
|
puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 8)"
|
|
set IsGood 0
|
|
} else {
|
|
puts "Get a value of TDataStd_RealArray attribute from restoring document: OK"
|
|
}
|
|
|
|
# Get a value of Integer array attribute
|
|
set GetIntegerArrayAttribute ""
|
|
set IsDone [catch {set GetIntegerArrayAttribute [GetIntArray DDoc ${aLabel}]} message]
|
|
if { ${IsDone} != 0 } {
|
|
puts ${message}
|
|
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 9)"
|
|
set IsGood 0
|
|
}
|
|
set aIntegerArrayLength [llength ${GetIntegerArrayAttribute}]
|
|
if { ${aIntegerArrayLength} != [expr ${aTo2} - ${aFrom2} + 1] } {
|
|
puts "aIntegerArrayLength=${aIntegerArrayLength}"
|
|
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 10)"
|
|
set IsGood 0
|
|
}
|
|
set GetInteger1 [lindex ${GetIntegerArrayAttribute} 0]
|
|
if { ${SetInteger1} != ${GetInteger1} } {
|
|
puts "GetInteger1=${GetInteger1}"
|
|
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 11)"
|
|
set IsGood 0
|
|
}
|
|
set GetInteger2 [lindex ${GetIntegerArrayAttribute} 1]
|
|
if { ${SetInteger2} != ${GetInteger2} } {
|
|
puts "GetInteger2=${GetInteger2}"
|
|
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
|
|
puts "OCC1724: ERROR (case 12)"
|
|
set IsGood 0
|
|
} else {
|
|
puts "Get a value of TDataStd_IntegerArray attribute from restoring document: OK"
|
|
}
|
|
|
|
if { ${IsGood} == 1 } {
|
|
puts "OCC1724 OK"
|
|
} else {
|
|
puts "OCC1724 Error"
|
|
}
|