tests/bugs/xde/bug25357

   1 puts "=========="
   2 puts "OCC25357"
   3 puts "=========="
   4 puts ""
   5 #######################################################################################
   6 # STL writer does not check the given shape for existing triangulation and remeshes
   7 # shape using BRepMesh in force mode
   8 #######################################################################################
   9
  10 set aFile ${imagedir}/${test_image}.stl
  11 file delete -force ${aFile}
  12
  13 set anASCIImode 0
  14
  15 ptorus res 10 8
  16 incmesh res 0.5
  17
  18 set LogBefore [trinfo res]
  19
  20 writestl res ${aFile} ${anASCIImode}
  21
  22 set LogAfter [trinfo res]
  23
  24 set status 1
  25 if { ![file exists ${aFile}] } {
  26   set status 0
  27 }
  28
  29 # Check file size
  30 set filesize [ file size ${aFile} ]
  31 if { ${filesize} == 0 } {
  32   set status 0
  33 }
  34
  35 if { $LogBefore != $LogAfter } {
  36   set status 0
  37 }
  38
  39 if {$status == 1} {
  40   puts "OK: STL writer check given shape"
  41 } else {
  42   puts "Error: STL writer does not check given shape"
  43 }