puts "============"
puts "OCC22652"
puts "============"
puts ""
#######################################################################
# No mesh for face (regression)
#######################################################################

set BugNumber OCC22652

pload ALL

restore [locate_data_file OCC22652-faceNoMesh.brep] result
vinit
vdisplay result
vfit

vsetdispmode 1

set tri_info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl

set status 0

if { ${tri} > 0 } {
   puts "triangles: OK ${BugNumber}"
} else {
   puts "triangles: Faulty ${BugNumber}"
   set status 1
}

if { ${nod} > 0 } {
   puts "nodes: OK ${BugNumber}"
} else {
   puts "nodes: Faulty ${BugNumber}"
   set status 1
}

# Resume
puts ""
if { ${status} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}

set only_screen 1
