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

puts "==========="
puts "BUC60847"
puts "==========="

pload QAcommands

NewDocument D BinOcaf
UndoLimit D 100

NewCommand D

box Shape 10 20 30

set ResultError [BUC60847 D Shape]
if { ${ResultError} != 0 } {
    puts "BUC60847: Error = $ResultError"
}
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "BUC60847"
	3	puts "==========="
	4
	5	pload QAcommands
	6
e837410d	7	NewDocument D BinOcaf
a87752f3	8	UndoLimit D 100
	9
	10	NewCommand D
	11
	12	box Shape 10 20 30
	13
	14	set ResultError [BUC60847 D Shape]
	15	if { ${ResultError} != 0 } {
	16	puts "BUC60847: Error = $ResultError"
	17	}
	18