mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
42 lines
964 B
Plaintext
42 lines
964 B
Plaintext
#INTERFACE CAF
|
|
# Basic attributes
|
|
#
|
|
# Testing order of attributes on Undo/Redo
|
|
#
|
|
# Testing command: SetInteger
|
|
# Testing command: GetReal
|
|
# Testing command: Undo and Redo
|
|
#
|
|
|
|
puts "caf001-B8"
|
|
|
|
NewCommand D
|
|
SetInteger D 0:1 123
|
|
SetReal D 0:1 123.321
|
|
NewCommand D
|
|
CheckLabel D 0:1
|
|
|
|
set res1 [CheckLabel D 0:1]
|
|
set indexReal1 [lsearch ${res1} TDataStd_Real]
|
|
set indexInt1 [lsearch ${res1} TDataStd_Integer]
|
|
if { ${indexReal1} != 11} {
|
|
puts "Error: Wrong position 1 of TDataStd_Real attribute."
|
|
}
|
|
if { ${indexInt1} != 5} {
|
|
puts "Error: Wrong position 1 of TDataStd_Integer attribute."
|
|
}
|
|
|
|
Undo D
|
|
Redo D
|
|
CheckLabel D 0:1
|
|
|
|
set res2 [CheckLabel D 0:1]
|
|
set indexReal2 [lsearch ${res2} TDataStd_Real]
|
|
set indexInt2 [lsearch ${res2} TDataStd_Integer]
|
|
if { ${indexReal1} != ${indexReal2}} {
|
|
puts "Error: Wrong position 2 of TDataStd_Real attribute."
|
|
}
|
|
if { ${indexInt1} != ${indexInt2}} {
|
|
puts "Error: Wrong position 2 of TDataStd_Integer attribute."
|
|
}
|