tests/bugs/moddata/bug21858

   1 puts "============"
   2 puts "OCC21858"
   3 puts "============"
   4 puts ""
   5 ####################################
   6 # Visualization hangs on this face ( OCC21858.brep )
   7 ####################################
   8
   9 set BugNumber OCC21858
  10 cpulimit 40
  11 restore [locate_data_file OCC21858.brep] result
  12
  13 set length 6.48642
  14
  15 set nb_v_good 9
  16 set nb_e_good 10
  17 set nb_w_good 1
  18 set nb_f_good 1
  19 set nb_sh_good 0
  20 set nb_sol_good 0
  21 set nb_compsol_good 0
  22 set nb_compound_good 0
  23 set nb_shape_good 21
  24
  25 set only_screen 0
  26
  27 vinit
  28 vsetdispmode 1
  29 dchrono TestTimer reset
  30 dchrono TestTimer start
  31 vdisplay result
  32 dchrono TestTimer stop
  33 vfit
  34 puts ""
  35 set time_o 0.1
  36 set tim [ dchrono TestTimer show ]
  37 regexp {Elapsed time: +([-0-9.+eE]+) Hours +([-0-9.+eE]+) Minutes +([-0-9.+eE]+) Seconds} $tim full hourVDisplay minuVDisplay secoVDisplay
  38
  39 set timVDisplay [expr $hourVDisplay * 3600 + $minuVDisplay * 60 + $secoVDisplay ]
  40
  41 if { ${tim} < ${time_o} } {
  42         set chro "CHRONO  : Faulty (${timVDisplay}%)"
  43         set status 1
  44         puts ${chro}
  45 } else {
  46         puts "${BugNumber} OK"
  47         set status 0
  48 }
  49 puts "timVDisplay = ${timVDisplay}"
  50