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

puts "==========="
puts "OCC387"
puts "SAM1452"
puts "==========="

NewDocument D MDTV-Standard
UndoLimit D 10
NewCommand D
SetVariable D 0:1 0 a
SetRelation D 0:1 a=10 0:1
SetReal D 0:1 10

NewCommand D
SetRelation D 0:1 a=20 0:1
SetReal D 0:1 20
NewCommand D
Undo D
set Res [DumpRelation D 0:1]

if { [regexp "a=20" $Res] == 1 } {
    puts "OCC387: Error "
}
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "OCC387"
	3	puts "SAM1452"
	4	puts "==========="
	5
	6	NewDocument D MDTV-Standard
	7	UndoLimit D 10
	8	NewCommand D
	9	SetVariable D 0:1 0 a
	10	SetRelation D 0:1 a=10 0:1
	11	SetReal D 0:1 10
	12
	13	NewCommand D
	14	SetRelation D 0:1 a=20 0:1
	15	SetReal D 0:1 20
	16	NewCommand D
	17	Undo D
	18	set Res [DumpRelation D 0:1]
	19
	20	if { [regexp "a=20" $Res] == 1 } {
	21	puts "OCC387: Error "
	22	}
	23