Adding test cases from chl grid

[occt.git] / tests / bugs / caf / bug1395_1

puts "TODO OCC12345 ALL: OCC1395 Error : There is not the integer attribute on the label 0:2"
puts "TODO OCC12345 ALL: OCC1395 Error"

puts "================"
puts "OCC1395"
puts "================"
puts ""
#######################################################################################
# Wrong behaviour of Undo Redo and SetUndoLimit methods in TDocStd_Document
#######################################################################################
# Case 1 (Undo)
#######################################################################################

set IsGood 1

# Create a new document and set UndoLimit
NewDocument D MDTV-Standard
UndoLimit D 100

# Create a label
set aLabel 0:2
Label D ${aLabel}

# Open a transaction
OpenTran D

# Set integer attribute
set anInteger 5
SetInteger D ${aLabel} ${anInteger}

# Commit transaction
CommitTran D 1

# Undo
DFUndo D 1

# Check integer attributes
if [catch { set Integer [GetInteger D ${aLabel}] } message] {
  set IsGood 0
  puts "OCC1395 Error : There is not the integer attribute on the label ${aLabel}"
} else {
  puts "OCC1395 OK : There is the integer attribute on the label ${aLabel}"
}

# Set real attribute
set aReal 8.8
SetReal D ${aLabel} ${aReal}

# Undo
DFUndo D 1

# Check real attributes
if [catch { set Real [GetReal D ${aLabel}] } message] {
  set IsGood 0
  puts "OCC1395 Error : There is not the real attribute on the label ${aLabel}"
} else {
  puts "OCC1395 OK : There is the real attribute on the label ${aLabel}"
}

if { ${IsGood} == 1 } {
  puts "OCC1395 OK"
} else {
  puts "OCC1395 Error"
}