tests/bugs/demo/bug23409

   1 puts "============"
   2 puts "CR23409"
   3 puts "============"
   4 puts ""
   5 ###################################################################################
   6 # Tricheck command doesn't report problem when triangulation has unexpected holes
   7 ###################################################################################
   8
   9 restore [locate_data_file bug23167_f397.brep] result
  10 vinit
  11 vsetdispmode 1
  12 vdisplay result
  13 axo
  14 fit
  15 isos result 0
  16 triangles result
  17 set info_bad [tricheck result]
  18 if { [regexp "Not connected mesh inside face 1" $info_bad] != 1 } {
  19     puts "Error : Tricheck command doesn't report message"
  20 }
  21
  22 tclean result
  23 incmesh result 0.01
  24 set info_good [tricheck result]
  25 if { [string compare $info_good "" ] != 0 } {
  26     puts "Error : Tricheck command works incorrect when shape looks good"
  27 }
  28
  29 set 3dviewer 1
  30
  31
  32
  33
  34