puts "================"
puts "OCC23192"
puts "================"
puts ""
#######################################################################################
# Regression in writestl command
#######################################################################################

catch { pload XDE }

set BugNumber OCC23192

set aFile $imagedir/${test_image}.stl
file delete ${aFile}

set anASCIImode 1

box res 10 10 10
incmesh res 0.1

writestl res ${aFile} ${anASCIImode}
catch {exec chmod 777 ${aFile}}

if { [file exists ${aFile}] } {
  readstl result ${aFile}

set nb_v_good 8
set nb_e_good 18
set nb_w_good 12
set nb_f_good 12
set nb_sh_good 1
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 51

  # Check file size
  set size_status 0
  set filesize [ file size ${aFile} ]
  if { ${filesize} != 0 } {
     set size_status 0
  } else {
     set size_status 1
  }

  if { ${size_status} == 0 } {
     puts "OK ${BugNumber}"
  } else {
     puts "Faulty ${BugNumber}"
  }
} else {
  puts "Faulty ${BugNumber}"
}

set square 600
set 3dviewer 0

