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

puts "==========="
puts "BUC60813"
puts "==========="

NewDocument D MDTV-Standard
UndoLimit D 100

NewCommand D

Label D 0:1

SetName D 0:1 SourceLabel
SetReal D 0:1 3.1415

set Result [CopyLabel D 0:1 0:2]
if { ${Result} == 0} {
    puts "BUC60813: Error 1"
} else {
    set Name [GetName D 0:2]
    if { [string length ${Name}] == 0 } {
        puts "BUC60813: Error 2"
    } else {
	set Result [CopyLabel D 0:2 0:3]
	if { ${Result} == 0 } {
	    puts "BUC60813: Error 3"
	} else {
	    puts "BUC60813: OK"
	}
    }
}
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "BUC60813"
	3	puts "==========="
	4
	5	NewDocument D MDTV-Standard
	6	UndoLimit D 100
	7
	8	NewCommand D
	9
	10	Label D 0:1
	11
	12	SetName D 0:1 SourceLabel
	13	SetReal D 0:1 3.1415
	14
	15	set Result [CopyLabel D 0:1 0:2]
	16	if { ${Result} == 0} {
	17	puts "BUC60813: Error 1"
	18	} else {
	19	set Name [GetName D 0:2]
	20	if { [string length ${Name}] == 0 } {
	21	puts "BUC60813: Error 2"
	22	} else {
	23	set Result [CopyLabel D 0:2 0:3]
	24	if { ${Result} == 0 } {
	25	puts "BUC60813: Error 3"
	26	} else {
	27	puts "BUC60813: OK"
	28	}
	29	}
	30	}