tests/bugs/vis/bug22652

   1 puts "============"
   2 puts "OCC22652"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # No mesh for face (regression)
   7 #######################################################################
   8
   9 set BugNumber OCC22652
  10
  11 pload ALL
  12
  13 restore [locate_data_file OCC22652-faceNoMesh.brep] result
  14 vinit
  15 vdisplay result
  16 vfit
  17
  18 vsetdispmode 1
  19
  20 set tri_info [trinfo result]
  21 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  22 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  23 regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl
  24
  25 set status 0
  26
  27 if { ${tri} > 0 } {
  28    puts "triangles: OK ${BugNumber}"
  29 } else {
  30    puts "triangles: Faulty ${BugNumber}"
  31    set status 1
  32 }
  33
  34 if { ${nod} > 0 } {
  35    puts "nodes: OK ${BugNumber}"
  36 } else {
  37    puts "nodes: Faulty ${BugNumber}"
  38    set status 1
  39 }
  40
  41 # Resume
  42 puts ""
  43 if { ${status} != 0 } {
  44    puts "Faulty ${BugNumber}"
  45 } else {
  46    puts "OK ${BugNumber}"
  47 }
  48
  49 set only_screen 1