tests/bugs/modalg_2/bug5729

   1 puts "============"
   2 puts "OCC5729"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Regression on case cfe 900 K5
   7 ######################################################
   8
   9 set BugNumber OCC5729
  10
  11 restore [locate_data_file OCC5729-f1.brep] f1
  12 restore [locate_data_file OCC5729-f2.brep] f2
  13
  14 decho off
  15 set che_1 [checkshape f1]
  16 decho on
  17 if { [regexp {Faulty} $che_1] } {
  18    puts "Faulty ${BugNumber} : checkshape is wrong for f1"
  19 }
  20
  21 decho off
  22 set che_2 [checkshape f2]
  23 decho on
  24 if { [regexp {Faulty} $che_2] } {
  25    puts "Faulty ${BugNumber} : checkshape is wrong for f2"
  26 }
  27
  28 bfuse result f1 f2
  29
  30 set square 28559.8
  31
  32 set nb_v_good 13
  33 set nb_e_good 22
  34 set nb_w_good 15
  35 set nb_f_good 13
  36 set nb_sh_good 1
  37 set nb_sol_good 1
  38 set nb_compsol_good 0
  39 set nb_compound_good 1
  40 set nb_shape_good 66
  41