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

puts "==========="
puts "BUC60790"
puts "BUC60836"
puts "==========="

pload QAcommands

NewDocument D MDTV-Standard
UndoLimit D 100

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