puts "REQUIRED All: OCC525 Exception"

pload QAcommands

puts "========"
puts "OCC525"
puts "========"
puts ""
########################################################
## Bug in GeomPlate_BuildPlateSurface::ComputeSurfInit()
########################################################

set mistake 0

if { [catch { OCC525 } ] } {
  puts "Faulty : OCC525"
}

checkview -display result -2d -path ${imagedir}/${test_image}.png