tests/bugs/fclasses/bug23192_2

   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 0
  17 set InParallel 0
  18
  19 box res 10 10 10
  20
  21 writestl res ${aFile} ${anASCIImode} ${InParallel}
  22 catch {exec chmod 777 ${aFile}}
  23
  24 if { [file exists ${aFile}] } {
  25   readstl result ${aFile}
  26
  27 set nb_v_good 8
  28 set nb_e_good 18
  29 set nb_w_good 12
  30 set nb_f_good 12
  31 set nb_sh_good 1
  32 set nb_sol_good 0
  33 set nb_compsol_good 0
  34 set nb_compound_good 0
  35 set nb_shape_good 51
  36
  37   # Check file size
  38   set size_status 0
  39   set filesize [ file size ${aFile} ]
  40   if { ${filesize} != 0 } {
  41      set size_status 0
  42   } else {
  43      set size_status 1
  44   }
  45
  46   if { ${size_status} == 0 } {
  47      puts "OK ${BugNumber}"
  48   } else {
  49      puts "Faulty ${BugNumber}"
  50   }
  51 } else {
  52   puts "Faulty ${BugNumber}"
  53 }
  54
  55 set square 600
  56 set 3dviewer 0
  57