[occt.git] / tests / bugs / vis / bug2066

puts "================"
puts "OCC2066"
puts "================"
puts ""
#######################################################################################
# CRASH in AIS_InteractiveContext::PurgeViewer(const Handle(V3d_Viewer)& Vwr)
#######################################################################################

box b 10 10 10
box b2 20 20 20 10 10 10
vinit
vdisplay b b2
vfit
verase b

if [catch {vpurgedisplay} result] {
    puts "Faulty OCC2066"
} else {
    puts "OK OCC2066"
}

set only_screen 1
Commit	Line	Data
61c421bf	1	puts "================"
	2	puts "OCC2066"
	3	puts "================"
	4	puts ""
	5	#######################################################################################
	6	# CRASH in AIS_InteractiveContext::PurgeViewer(const Handle(V3d_Viewer)& Vwr)
	7	#######################################################################################
	8
	9	box b 10 10 10
	10	box b2 20 20 20 10 10 10
	11	vinit
	12	vdisplay b b2
	13	vfit
	14	verase b
61c421bf	15
eb4320f2	16	if [catch {vpurgedisplay} result] {
61c421bf	17	puts "Faulty OCC2066"
	18	} else {
	19	puts "OK OCC2066"
	20	}
	21
	22	set only_screen 1
	23