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}

checknbshapes result -vertex 8 -edge 18 -wire 12 -face 12 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 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}"
}

checkprops result -s 600
checkshape result
checkview -display result -3d -path ${imagedir}/${test_image}.png
