tests/bugs/fclasses/bug23192_1

   1 puts "================"
   2 puts "OCC23192"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Regression in writestl command
   7 #######################################################################################
   8
   9 catch { pload XDE }
  10
  11 set BugNumber OCC23192
  12
  13 set aFile $imagedir/${test_image}.stl
  14 file delete ${aFile}
  15
  16 set anASCIImode 1
  17
  18 box res 10 10 10
  19 incmesh res 0.1
  20
  21 writestl res ${aFile} ${anASCIImode}
  22 catch {exec chmod 777 ${aFile}}
  23
  24 if { [file exists ${aFile}] } {
  25   readstl result ${aFile}
  26
  27 checknbshapes result -vertex 8 -edge 18 -wire 12 -face 12 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 51
  28   # Check file size
  29   set size_status 0
  30   set filesize [ file size ${aFile} ]
  31   if { ${filesize} != 0 } {
  32      set size_status 0
  33   } else {
  34      set size_status 1
  35   }
  36
  37   if { ${size_status} == 0 } {
  38      puts "OK ${BugNumber}"
  39   } else {
  40      puts "Faulty ${BugNumber}"
  41   }
  42 } else {
  43   puts "Faulty ${BugNumber}"
  44 }
  45
  46 set square 600
  47 set 3dviewer 0
  48