[occt.git] / tests / bugs / xde / bug21046

puts "============"
puts "OCC21046"
puts "============"
puts ""
#######################################################################
# XShow raises an exception
#######################################################################

pload DCAF

set BugNumber OCC21046

box B 100 100 100
XNewDoc D
SetShape D 0:1 B
XShow D 0:1
if [catch { XShow D 0:1 } ] {
  puts "Faulty ${BugNumber} : XShow is wrong"
} elseif [catch { vmoveto 10 10 } ] {
  puts "Faulty ${BugNumber} : XShow is wrong"
} else {
  puts "OK ${BugNumber}"
}
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC21046"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# XShow raises an exception
	7	#######################################################################
	8
	9	pload DCAF
	10
	11	set BugNumber OCC21046
	12
	13	box B 100 100 100
	14	XNewDoc D
	15	SetShape D 0:1 B
	16	XShow D 0:1
	17	if [catch { XShow D 0:1 } ] {
	18	puts "Faulty ${BugNumber} : XShow is wrong"
	19	} elseif [catch { vmoveto 10 10 } ] {
	20	puts "Faulty ${BugNumber} : XShow is wrong"
	21	} else {
	22	puts "OK ${BugNumber}"
	23	}