mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
Fix for #23273 issue. Fix for #23273 issue (boolean/013/R9). Modifications of tests according to #23260 issue. Attempt to protect against hang-ups due to waiting for standard input change of behaviour of offset/shape_type_i/D7 case. Attempt to protect against hang-ups during initialization of menu in batch mode. increase cpulimit for parallel incmesh. #23260 is fixed. count_parallel is not needed anymore. Deleted unused code. change of behaviour of offset/shape_type_i/D7 case. The fix was incorrect. Second attempt to protect against hang-ups during initialization of menu in batch mode correction of tests in order to awoid instability. Elapsed time changed to CPU user time is performance tests. Processing of errors on Windows. Stop cpulimit killer if armed by test, after the test is completed
71 lines
1.8 KiB
Plaintext
Executable File
71 lines
1.8 KiB
Plaintext
Executable File
#INTERFACE CAF
|
|
# Basic attributes
|
|
#
|
|
# Testing attribute: TDataStd_UAttribute
|
|
#
|
|
# Testing command: SetUAttribute
|
|
# Testing command: GetUAttribute
|
|
#
|
|
|
|
puts "caf001-J6"
|
|
|
|
# Add an attribute to a data framework
|
|
set aSetAttr1 "c73bd075-22ee-11d2-acde-080009dc4422"
|
|
set aLabel 0:2
|
|
SetUAttribute D ${aLabel} ${aSetAttr1}
|
|
set aGetAttr1 [GetUAttribute D ${aLabel} ${aSetAttr1}]
|
|
|
|
# Add new ID to a label
|
|
set aSetAttr2 "c73bd076-22ee-11d2-acde-080009dc4422"
|
|
SetUAttribute D ${aLabel} ${aSetAttr2}
|
|
set aGetAttr2 [GetUAttribute D ${aLabel} ${aSetAttr2}]
|
|
|
|
# Close/Open the transaction
|
|
NewCommand D
|
|
|
|
# Save the document
|
|
set aFile ${imagedir}/caf001-J6.std
|
|
file delete ${aFile}
|
|
SaveAs D ${aFile}
|
|
if { ![file exists ${aFile}] } {
|
|
puts "There is not ${aFile} file; SaveAs command: Error"
|
|
return
|
|
}
|
|
#catch {exec chmod 777 ${aFile}}
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|
|
|
|
# Get a value of first ID
|
|
set IsDone [catch {GetUAttribute DD ${aLabel} ${aSetAttr1}} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts ${aResult}
|
|
puts "Get a value of TDataStd_UAttribute attribute from restoring document: Error"
|
|
return
|
|
}
|
|
if { ${aSetAttr1}!=${aGetAttr1} } {
|
|
puts "First ID:"
|
|
puts "aSetAttr1=${aSetAttr1}"
|
|
puts "aGetAttr1=${aGetAttr1}"
|
|
puts "Get a value of TDataStd_UAttribute attribute from restoring document: Error"
|
|
return
|
|
}
|
|
|
|
# Get a value of second ID
|
|
set IsDone [catch {GetUAttribute DD ${aLabel} ${aSetAttr2}} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts ${aResult}
|
|
puts "Get a value of TDataStd_UAttribute attribute from restoring document: Error"
|
|
return
|
|
}
|
|
if { ${aSetAttr2}!=${aGetAttr2} } {
|
|
puts "Second ID:"
|
|
puts "aSetAttr2=${aSetAttr2}"
|
|
puts "aGetAttr2=${aGetAttr2}"
|
|
puts "Get a value of TDataStd_UAttribute attribute from restoring document: Error"
|
|
return
|
|
}
|
|
|
|
puts "Get a value of TDataStd_UAttribute attribute from restoring document: OK"
|