tests/bugs/moddata_2/bug36

   1 puts "========"
   2 puts "OCC36"
   3 puts "========"
   4
   5 pload XDE
   6
   7 set filepath [locate_data_file OCC36.igs]
   8 if [catch { igesbrep $filepath a * } res] {
   9     puts "Error OCC36: here is reading problem"
  10 } else {
  11     puts "Reading OCC36  OK"
  12
  13     tpcompound r
  14     dchrono h2 reset
  15     dchrono h2 start
  16     sewing result 1.e-7 r
  17     dchrono h2 stop
  18     set q2 [ dchrono h2 show ]
  19     regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
  20     puts "$z2"
  21     if { $z2 > 30 } {
  22         puts "Elapsed time is more then 30 seconds - Faulty"
  23     } else {
  24         puts "Elapsed time is less then 30 seconds - OK"
  25     }
  26 }
  27
  28 set 2dviewer 0
  29
  30