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

