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

puts "==========="
puts "OCC25112"
puts "==========="
puts ""
###########################################################################
# Undo of modification of the attribute TDataStd_IntPackedMap works wrong
###########################################################################

NewDocument D
UndoLimit D 10
SetIntPackedMap D 0:1 1 319
puts "initial: [GetIntPackedMap D 0:1]"

OpenCommand D
ChangeIntPackedMap_Add D 0:1 344
ChangeIntPackedMap_Rem D 0:1 319
CommitCommand D
puts "after changes: [GetIntPackedMap D 0:1]"

Undo D

set map [GetIntPackedMap D 0:1]
puts "after undo: $map"

if {$map != "319"} {
  puts "ERROR: OCC25112 is reproduced. Expected map content is 319"
}
Commit	Line	Data
6d1dc3e8	1	puts "==========="
	2	puts "OCC25112"
	3	puts "==========="
	4	puts ""
	5	###########################################################################
	6	# Undo of modification of the attribute TDataStd_IntPackedMap works wrong
	7	###########################################################################
	8
	9	NewDocument D
	10	UndoLimit D 10
	11	SetIntPackedMap D 0:1 1 319
	12	puts "initial: [GetIntPackedMap D 0:1]"
	13
	14	OpenCommand D
	15	ChangeIntPackedMap_Add D 0:1 344
	16	ChangeIntPackedMap_Rem D 0:1 319
	17	CommitCommand D
	18	puts "after changes: [GetIntPackedMap D 0:1]"
	19
	20	Undo D
	21
	22	set map [GetIntPackedMap D 0:1]
	23	puts "after undo: $map"
	24
	25	if {$map != "319"} {
	26	puts "ERROR: OCC25112 is reproduced. Expected map content is 319"
	27	}