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

puts "==========="
puts "BUC60831"
puts "==========="

pload QAcommands

NewDocument D BinOcaf
UndoLimit D 100

NewCommand D

set L 0:3
Label D $L

set Status 0

set Result [BUC60831_1 D]
if { ${Result} != 0 } {
    puts "BUC60831: Error 1"
    set Status 1
}

NewCommand D

set Result [BUC60831_2 D $L]
if { ${Result} != 0 } {
    puts "BUC60831: Error 2"
    set Status 1
}

set Result [BUC60831_1 D]
if { ${Result} != 1 } {
    puts "BUC60831: Error 3"
    set Status 1
}

NewCommand D

Undo D

set Result [BUC60831_1 D]
if { ${Result} != 0 } {
    puts "BUC60831: Error 4"
    set Status 1
}

if { ${Status} != 0} then {
 puts "BUC60831: Error"
}
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "BUC60831"
	3	puts "==========="
	4
	5	pload QAcommands
	6
e837410d	7	NewDocument D BinOcaf
a87752f3	8	UndoLimit D 100
	9
	10	NewCommand D
	11
	12	set L 0:3
	13	Label D $L
	14
	15	set Status 0
	16
	17	set Result [BUC60831_1 D]
	18	if { ${Result} != 0 } {
	19	puts "BUC60831: Error 1"
	20	set Status 1
	21	}
	22
	23	NewCommand D
	24
	25	set Result [BUC60831_2 D $L]
	26	if { ${Result} != 0 } {
	27	puts "BUC60831: Error 2"
	28	set Status 1
	29	}
	30
	31	set Result [BUC60831_1 D]
	32	if { ${Result} != 1 } {
	33	puts "BUC60831: Error 3"
	34	set Status 1
	35	}
	36
	37	NewCommand D
	38
	39	Undo D
	40
	41	set Result [BUC60831_1 D]
	42	if { ${Result} != 0 } {
	43	puts "BUC60831: Error 4"
	44	set Status 1
	45	}
	46
	47	if { ${Status} != 0} then {
	48	puts "BUC60831: Error"
	49	}
	50