puts "========"
puts "OCC28719"
puts "========"
puts ""
###################################
# Display issue for special model
###################################

restore [locate_data_file bug28719_display_issue.brep] result
tclean result

vinit
vdisplay result
vsetdispmode result 1
vfit

set log [tricheck result]
if { [llength $log] != 0 } {
  puts "ERROR: OCC28719 is reproduced. Nontriangulated faces have been detected."
} else {
  puts "Mesh is OK"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png