tests/bugs/vis/buc60887

   1 puts "============"
   2 puts "BUC60887"
   3 puts "============"
   4 puts ""
   5 ############################################
   6 ## Shape hangs after command " vdisplay " in the Viewer3d.
   7 ############################################
   8
   9 restore [locate_data_file BUC60887.brep] result
  10
  11 set nb_info [nbshapes result]
  12 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
  13
  14 puts [format "Shape res contains %s vertexes" $nb_v]
  15 if { $nb_v == 0} {
  16    puts "Error : Result shape is NULL shape"
  17 } else {
  18   set 3dviewer 1
  19 }
  20