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

puts "==========="
puts "BUC60817"
puts "==========="

pload QAcommands

NewDocument D MDTV-Standard
UndoLimit D 100

NewCommand D

set ResultError [BUC60817 D]
if { ${ResultError} != 0 } {
    puts "BUC60817: Error = $ResultError"
}
Commit	Line	Data
	1	puts "==========="
	2	puts "BUC60817"
	3	puts "==========="
	4
	5	pload QAcommands
	6
	7	NewDocument D MDTV-Standard
	8	UndoLimit D 100
	9
	10	NewCommand D
	11
	12	set ResultError [BUC60817 D]
	13	if { ${ResultError} != 0 } {
	14	puts "BUC60817: Error = $ResultError"
	15	}
	16