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

puts "==========="
puts "BUC60844"
puts "BUC60845"
puts "==========="

NewDocument D BinOcaf
UndoLimit D 100

NewCommand D
Label D 0:2
Label D 0:2:1
Label D 0:2:1:1
Label D 0:2:1:2
Label D 0:3

SetNode D 0:1
SetNode D 0:2
SetNode D 0:2:1
SetNode D 0:2:1:1
SetNode D 0:2:1:2
SetNode D 0:3
 
InsertNodeAfter D 0:1 0:2
InsertNodeAfter D 0:2 0:3

AppendNode D 0:2 0:2:1

AppendNode D 0:2:1 0:2:1:1
InsertNodeAfter D 0:2:1:1 0:2:1:2

NewCommand D

ForgetAll D 0:2:1

NewCommand D

Undo D
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "BUC60844"
	3	puts "BUC60845"
	4	puts "==========="
	5
e837410d	6	NewDocument D BinOcaf
a87752f3	7	UndoLimit D 100
	8
	9	NewCommand D
	10	Label D 0:2
	11	Label D 0:2:1
	12	Label D 0:2:1:1
	13	Label D 0:2:1:2
	14	Label D 0:3
	15
	16	SetNode D 0:1
	17	SetNode D 0:2
	18	SetNode D 0:2:1
	19	SetNode D 0:2:1:1
	20	SetNode D 0:2:1:2
	21	SetNode D 0:3
	22
	23	InsertNodeAfter D 0:1 0:2
	24	InsertNodeAfter D 0:2 0:3
	25
	26	AppendNode D 0:2 0:2:1
	27
	28	AppendNode D 0:2:1 0:2:1:1
	29	InsertNodeAfter D 0:2:1:1 0:2:1:2
	30
	31	NewCommand D
	32
	33	ForgetAll D 0:2:1
	34
	35	NewCommand D
	36
	37	Undo D
	38
	39