tests/perf/mesh/bug25113_1

   1 puts "========="
   2 puts "0025113: Progress indicator in mesh"
   3 puts "========="
   4 puts ""
   5
   6 restore [locate_data_file bug21134_r.brep] a
   7 tclean a
   8 XProgress +t
   9 set output [incmesh a 0.005]
  10
  11 set ctr { "Perform incmesh" "Mesh Perform"
  12           "Face Discret" "100%"
  13           "Create triangles on new vertices" }
  14
  15 foreach data ${ctr} {
  16     if ![regexp $data $output] {
  17        puts "Error: Non parallel version incmesh command: Mismatch data on '$data'"
  18        break;
  19     }
  20 }
  21