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

puts "================="
puts "OCC644"
puts "SAM1513"
puts "================="
puts ""

NewDocument D 
UndoLimit D 10 

NewCommand D 
SetVariable D 0:1 0 mm 
SetRelation D 0:2 x=10 0:1 

NewCommand D 
SetRelation D 0:2 x=20 0:1 

NewCommand D 
Undo D 
Redo D
Undo D

set RelationList [DumpRelation D 0:2]

if {[llength ${RelationList}] <= 10} {
    puts "OCC644: OK"
} else {
    puts "OCC644: ERROR"
}
Commit	Line	Data
61c421bf	1	puts "================="
	2	puts "OCC644"
	3	puts "SAM1513"
	4	puts "================="
	5	puts ""
	6
	7	NewDocument D
	8	UndoLimit D 10
	9
	10	NewCommand D
	11	SetVariable D 0:1 0 mm
	12	SetRelation D 0:2 x=10 0:1
	13
	14	NewCommand D
	15	SetRelation D 0:2 x=20 0:1
	16
	17	NewCommand D
	18	Undo D
	19	Redo D
	20	Undo D
	21
	22	set RelationList [DumpRelation D 0:2]
	23
	24	if {[llength ${RelationList}] <= 10} {
	25	puts "OCC644: OK"
	26	} else {
	27	puts "OCC644: ERROR"
	28	}
	29
	30