tests/bugs/moddata_2/bug36

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